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Dr.  Dobb's  Journal  is  a  highly  respected 
reference  journal  which  fills  a  unique  and 
solid  niche  within  the  microcomputing 
world.  We  publish  discussions  and  examples 
of  general  purpose  system  tools,  articles  on 
legislation  or  trends  affecting  computerists, 
a  consumer  watchdog  column,  as  well  as  a 
variety  of  monthly  columns  designed  to 
guide  and  help  readers  wend  their  way 
through  the  confusion  of  a  new  and  bur¬ 
geoning  industry. 


Recent  issues  have  included:  •  Growing,  pruning 
and  climbing  binary  trees  with  tiny-c  ■  Selecting 
business  software  for  microcomputers  *  An  inter¬ 
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computer  speak  ASCII 


"Your  level  of  information  is  fantastic  . . .  the 
best!" 


“Dr.  Dobb's  has  presented  some  of  the  best  and 
most  intelligent  software  for  the  advanced  hobby¬ 
ist.  Please,  please  stay  that  way!" 


"Keep  up  the  heavy  software,  non -commercial, 
short  miscellaneous,  unslick,  lots  of  letters  ap¬ 
proach:  it's  unique  among  Byte,  interface  Age, 
Kilobaud,  etc." 
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Editors’  Notes 


Extra  Pages!  Special  Features!  Changes!  News!  This  issue  of  RC  contains 
all  of  the  above,  and  more. 

The  magazine  is  eight  pages  larger  than  normal  this  time.  The  expansion  was 
made  to  accommodate  two  feature  articles  on  the  new  Atari  and  TI  home 
computers,  and  still  leave  room  for  all  the  regular  stuff.  If  you’ve  been 
waiting  to  get  a  peek  at  some  of  the  capabilities  of  these  new  machines,  here 
is  your  chance. 

The  issue  also  highlights  two  other  articles:  “Architecture  of  Multi -Flayer 
Games”  and  “Cryptarithms,”  In  recent  7?Cs,  the  “Universe”  article  by  Les 
LaZar  and  t4Cryptarithms”  by  Jack  Crehore,  have  created  a  flood  of  reader 
response.  Todd  Voros,  co -creator  of  FORTRAN  Mm,  takes  the  concepts 
presented  in  “Universe”  to  the  next  level.  He  proposes  an  architecture  for  the 
implementation  of  such  a  system.  Jack  Crehore,  our  spry  88 -year  old  author 
of  puzzles,  digs  again  into  his  bag  of  mind -benders.  Looks  like  he  will  become 
a  regular  feature  in  RC  If  you  sent  in  solutions  to  the  first  set  of  crypta- 
rithms,  check  Jack’s  article  for  your  name. 

What  about  changes?  Well,  the  dragon  is  losing  one  of  its  heads.  This 
temporary  craziness  is  prompted  by  Louise  Burton’s  departure  from  the 
masthead  of  RC  Louise  is  off  to  do  some  traveling,  expand  her  freelance 
activities,  and  generally  have  a  good  time.  Good  luck,  Louise!  The  other 
dragons  wish  you  well. 

The  dragon  is  sprouting  a  new  head,  though,  a  red  one,  Tracy  Deliman.  She 
is  busy  working  on  several  books,  doing  research  with  a  San  Francisco  organ¬ 
ization,  freelancing,  and  starting  to  learn  about  computers.  Her  special 
interests  are  in  holistic  health  and  medical  anthropology.  Welcome, 
Dragons  ss! 

What  about  the  news?  The  bad  news  is  that  FORTRAN  Man  didn’t  make  it 
into  this  issue,  but  will  RETURN  in  the  Nov -Dec  RC \  The  good  news  is  that 
we  did  receive  one  entry  in  our  “dragon  art”  contest.  (I  believe  that’s  good 
news!)  More  on  the  contest  in  the  next  issue  . . . 

Ramon  Zamora  Tracy  Deliman 

Louise  Burton  Bob  Albrecht 


CORRECTION 

In  the  May -June  1979  issue  of  RC,  we  mentioned  that  the  Metagame  Hunt 
was  available  free  directly  from  its  author,  Michael  Richter.  Alas,  that  is  no 
longer  true!  The  game  is  now  available  from: 

Programma  International,  Inc. 

3400  Wilshire  Blvd. 

Los  Angeles,  CA  90010 
(213)  384-0579 


ARTHUR  STRIKES  AGAIN 

Dear  Dragons  and  Dragonesses: 

First,  thank  you  for  putting  my  article 
in  such  a  pretty  setting  (“Epic  Games 
on  Modest  Computers,”  March-April, 
1979). 

Second,  let  me  say  that  while  I  am  in 
favor  of  epic  games,  I  don’t  think  they 
should  all  be  universe-size  or  populated 
with  hundreds  of  mythical  creations.  For 
many  of  us,  making  it  through  the  week 
without  abrasive  confrontations  or  other 
aggravations  is  an  epic  accomplishment 
Some  of  the  games  should  concern  real 
life  situations  to  which  players  are  per¬ 
mitted  to  try  different  solutions,  using 
different  techniques  (e.g.,  aggression  or 
compromise)  or  different  personalities; 
fantasies  can  abound  in  tins  area. 

Lastly,  I  note  that  all  of  the  epic  games 
to  date  involve  war  or  fighting  or  con¬ 
quering  or  some  other  form  of  aggressive 
competition.  Shame,  shame.  We  need 
games  without  such  attributes.  My 
modest  proposal  is  a  game  called  “Ho 
Hum.”  This  game  is  played  by  any  num¬ 
ber  of  people  communicating  by  modem. 
Players  pretend  they  are  at  a  social  gath¬ 
ering.  Each  player  can  say  whatever  he 
wants  whenever  he  wants.  The  objective 
is  to  be  so  boorish,  trite  and  boring  that 
no  one  wants  to  talk  to  you  any  more. 
Players  drop  out  when  they  can’t  stand 
it  any  longer  or  are  bored  out  of  their 
minds.  The  last  player  left  is  the  winner. 
As  you  can  see,  no  one  forces  another  to 
capitulate.  All  action  is  voluntary. 

I  am  working  on  two  other  similar  games 
to  be  called  “Suicide”  and  “Disease.” 
Believe  it  or  not,  some  fool  has  suggested 
that  these  programs  may  not  enjoy  a  large 
market. 

Arthur  Wells,  Jr. 

428  1 3th  St. 

Suite  610 

Oakland,  CA  94612 
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Fourth,  but  not  the  least,  i  love  your 
magazine.  Keep  it  good! 

Tim  Huang 

19401  East  Burnside  Hy. 

Portland,  OR  97233 


first  the  error  was  in  the  original  Looks 
like  a  typo  for  610(7),  but  maybe  Mr. 
Mundie  is  right -BASIC  programs  can  be 
tough  to  debug,  especially  without  REM 
statements.  Write  to  David.  His  address 
is  with  his  article  in  this  issue. 

Second,  with  this  issue  I  have  been  on 
the  magazine  for  one  year.  Not  one 
article  on  the  Sorcerer  has  crossed  my 
desk! 

Third,  we  have  an  article  on  a  BASIC 
Master  Command  list -a  subset  of  BASIC 
that  works  on  a  bunch  of  machines. 
If  the  article  is  not  in  this  issue,  look 
for  it  in  Nov.  -Dec.  RC. 

Fourth,  great! 


We  all  have  plans  to  replace  our  personal 
computers  and  software,  but  at  this  time 
I  am  particularly  interested  in  trying  to 
help  our  club  replace  its  loss. 

Any  club,  publisher,  software  producer, 
or  individual  who  wishes  to  do  so,  may 
contribute  non -cash  items,  such  as  soft¬ 
ware,  back  issues  of  computer  publi¬ 
cations,  and  books  on  computers. 

J  Wesley  B.  Taylor,  Secretary 

Wichita  Valley  TRS-80  Users  Croup 

P.O.Box  4391 

Wichita  Falls,  Texas  76308 


IS  IT  THEFT'  OR  IS  IT  FREEDOM? 

I  am  writing  in  response  to  the  letter 
from  Programmer  Anonymous  #8, 
Mahwah,  NJ  (March-April.  1979).  Writ¬ 
ing  programs  to  simulate  a  system  s 
logged -off  mode  is  no  indication  of 
master  programmer  status.  Such  pro¬ 
gramming  activities  are  nothing  more 
than  petty  thievery.  I  am  disturbed  that 
your  editorial  staff  failed  to  take  the 
opportunity  to  discourage  the  illegal  use 
of  computers. 


So  glad  to  receive  my  first  copy^  of 
Recreational  Computing  (May -June  ’79) 
and  1  enjoyed  most  of  it. 

First,  1  found  a  BUG  on  Pg.  15  (“BASIC 
vs  PASCAL  vs  BASIC”).  Line  190  says 
IF  V  =  2  THEN  670,  but  there  is  NO 
Une  670;  my  Sorcerer  just  gives  me 
“?  SN  ERROR  in  190”  (Syntax  Error). 
Sorry,  Charlie,  the  good  BASIC  is  not 
perfect.  What  is  the  right  one:  270, 
370, 470,  or  570? 

Second,  it  seems  to  me  nowadays  every¬ 
body  just  cares  about  the  software  for 
3  major  micros:  Apple,  PET  and  TRS-80, 
and  nobody  cares  about  others  such  as 
the  magic  Sorcerer,  which  I  believe 
also  is  a  superior  micro  with  all  kinds  of 
graphic  goodies.  Can  you  do  something 
about  this? 

Third,  every  program  written  in  either 
PET,  Apple  or  TRS-80  BASIC  always 
contains  something  that  only  exists  in 
its  own  BASIC  vocabulary.  To  me,  it  is 
a  pain  just  to  try  to  use  something  that 
is  non-existent  in  my  micro  BASIC. 
Every  author  always  says  that  it’s  very 
easy  to  transport  to  another  version  of 
BASIC,  but  God  knows  how.  So,  can  you 
suggest  any  book  or  literature  or  what¬ 
ever  to  solve  this  problem?  The  whole 
case  is  like  the  car  door  handle  which 
can’t  be  exchanged  even  though  it  s 
from  the  very  same  auto  company  of 
same  year.  All  these  BASICs  were  de¬ 
veloped  by  Microsoft,  and  all  called 
“Standard"  BASIC  (as  far  as  1  know), 
but  why  do  they  have  to  make  such  a 
headache  for  users?  Poo-hee! 


HELP  FOR  TORNADO  VICTIMS 

Dear  fellow  computer  enthusiasts: 

In  the  recent  tornado  which  wreaked  un¬ 
holy  havoc  on  our  city,  many  of  us  in  the 
Wichita  Valley  TRS-80  Users  Group  lost 
our  computers,  our  tape  and  disk  library 
of  software,  and  our  library  of  computer 
books  and  periodicals.  Even  our  club's 
own  library  of  software  and  publications 
was  destroyed. 


Joanne  R.  Hugi 
Director,  User  Services 
Computing  Center 
University  of  Oregon 

Hmmm  ...If  enuff  people  learn  how  ro 
violate  those  sytems  which  invade  our 
privacy,  perhaps  those  systems  will  not 
happen  -  power  to  the  people!  And.  es¬ 
pecially.  power  to  kids  whose  lives  might 
be  stomped  upon  by  establishment- 
centralized  data  banks.  —  The  Dragon 


DAMm/  TH/5  STOPS D 

CALCULATOR  is 

mm 6  A  long  time 

TO  &IV0  AM 
PUdSUJ&R., 


OH  NOW-..  WHAT 

was  rue  co-tan&ent 

OP  28.31  DE6R66S/ f 

Un  * .  .OH**  * 

oh  v&aH!  wouj  x 
&EMGM3ER  l  ■ 

°c 


O 


x  mate  ,  , 

CD -  TAM&ZMTS  ( 


SEPT -OCT 


1979 


5 


AUTHORS  PROTEST  REVIEW 

We  were  shocked  to  read  Harry  Sad's 
review  of  our  new  book,  32  BASIC 
Programs  for  the  PET  Computer ,  in  his 
monthly  SPOT  column  (May -June,  1979)- 
His  criticism  probably  has  misled  many 
readers,  and  we  would  like  to  set  the 
record  straight. 

Mr,  SaaPs  review  focuses  on  what  he  caUs 
our  “lack  of  expert  programming  style.” 
This  he  explains  as  a  general  absence 
of  two  things  from  our  programs:  ex¬ 
planatory  REM  statements  and  instruc¬ 
tions  for  program  usage. 

These  objections  are  somewhat  short¬ 
sighted,  since  they  indicate  a  misunder¬ 
standing  of  the  purpose  of  our  book. 
We  are  attempting  something  new- 
the  distribution  in  book  form  of  BASIC 
software  for  a  specific  microcomputer. 
As  indicated  in  the  book’s  preface, 
our  major  goals  were: 

1.  to  provide  a  broad -based  library  of 
useful,  creative  programs  (applications, 
education,  games,  graphics,  math,  etc.); 

2.  to  have  them  work  “as  is”  on  a  PET 
(thus  taking  advantage  of  and  working 
within  the  constraints  of  PET  graphics, 
screen  page  formatting,  etc,); 

3.  to  provide  complete  program  docu¬ 
mentation  (including  how  each  user 
can,  if  desired,  modify  the  programs  to 
suit  his  individual  needs  and  tastes). 

Some  innovative  ideas  are  needed  to 
achieve  these  goals.  Indeed,  we  thought 
long  and  hard  about  the  style  that  both 
our  book  and  our  programs  would  have. 

We  could  easily  have  placed  explanatory 
REM  statements  and  usage  instructions 
within  the  programs.  Instead,  we  placed 
complete  program  documentation  in  the 
hook ,  not  in  the  programs.  This  had  some 
definite  advantages.  The  programs  would 
be  shorter.  Thus,  the  user  would  have  less 
typing  to  do,  and  the  subsequent  loading 
time  from  tape  would  be  faster.  Program 
memory  space  would  be  conserved, 


allowing  more  extensive  program  expan¬ 
sion  and  individual  customizing  as  de¬ 
scribed  in  the  book.  Also,  we  could 
squeeze  several  programs  into  the  4K 
PET,  a  machine  still  supported  by  Com¬ 
modore  at  the  time  the  programs  were 
being  developed.  In  addition,  full  docu¬ 
mentation  in  the  book  would  increase  the 
need  to  buy  the  book  instead  of  “illegiti¬ 
mately  borrowing”  the  programs  on  tape 
from  someone  else. 

In  any  case,  if  a  user  feels  he  wants  ex¬ 
planatory  REM  statements  and  usage 
instruction  in  the  programs,  he  or  she 
can  easily  construct  them  from  the 
appropriate  documentation  in  the  book. 

Basically,  our  complaint  is  that  Mr.  Sad 
failed  to  give  our  book  a  responsible 
review.  Our  own  book  reviews  for  various 
computing  magazines  have  always  striven 
to  give  readers  two  essentials:  the  purpose 
of  the  book,  and  how  well  the  author 
achieved  his  purpose.  The  first  lets  the 
reader  know  if  the  book  is  potentially 
of  interest  and  the  second  helps  him 
decide  if  it  is  actually  of  interest.  In 
reviewing  our  book,  Mr,  Saal  has  ignored 
the  former  and  has  misled  the  reader 
about  the  latter. 

Please  don't  misunderstand  our  ob¬ 
jections.  Every  reviewer  certainly  has  the 
right  of  responsible  criticism.  If  he  feels 
an  author's  purpose  would  not  benefit 
many  people,  fine.  If  he  feek  a  book  is 
not  well  executed  toward  its  purpose, 
fine.  But  we  cannot  accept  criticism  that 
ignores  the  intention  of  our  book.  It  is 
as  if  we  published  a  road  atlas  and  were 
then  criticised  for  not  explaining  how 
to  drive. 

Tom  Rugg  and  Phil  Feldman 

P.O.  Box  248 1 5 

Los  Angeles,  CA  90024 


IMPROVING  VOICE  RESPONSES 

Most  ‘Steemed  Dragon, 

I  was  quite  interested  in  Mr,  Pollard’s 
article,  “Peter  Can  Now  Read,”  in  the 
May -June  issue,  1  do  have  a  suggestion 
about  the  voice  response  cassette  used, 
i  have  found  that  (at  least  for  the  Kansas 
City  interface  used  by  my  machine) 
the  computer  will  ignore  any  voice  signals 
on  the  data  cassette.  Thus,  if  the  switch 
that  cuts  off  the  speaker  when  the  ear¬ 
phone  jack  is  used  is  defeated  with  a 
“short”  wire,  both  the  computer  and 
the  student  can  listen  to  the  tape.  This 
allows  the  recorder  to  be  stopped  when 
a  data  block  is  recognized  and  means 
that  the  data  block  can  also  contain  the 
delay  parameters  and  spelling  for  the 
next  spoken  word  on  the  tape.  Thus, 
the  word  list  can  be  changed  without 
rewriting  the  program;  it  also  eliminates 
any  problems  with  the  visual  and  audio 
words  falling  out  of  step. 

Errors  in  making  the  lesson  tape  should 
be  rarer,  easier  to  catch  and  correct. 
I  use  this  technique  myself  to  provide 
verbal  documentation  between  programs 
on  a  tape,  or  to  provide  interesting  back¬ 
grounds  for  certain  games  (maniacal 
laughter,  passages  from  Bach  or  Grieg, 
etc.). 

I  also  wanted  to  comment  on  Harry 
Baal's  lack  of  appreciation  for  struc¬ 
tured  design  and  Jim  Day's  sadistic 
fondness  for  obscure  coding  (sure  it 
works,  but  if  it  didn't,  how  much  longer 
would  it  take  to  figure  out  why?),  but 
many  others  have  been  heard  from  on 
that  perennial  quibble, 

Bennett  Rutledge 
120!  North  Pierce  Street 
Arlington,  Virginia  22209 
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the  perils  of  publishing 


Yesterday  I  received  my  May -June  issue 
of  RC.  I  enjoyed  most  of  the  items  l  have 
read  so  far,  particularly  '‘Hunt”  and  “In¬ 
spector  Clew -So.” 

Today,  upon  reading  my  mail,  I  received 
a  mild  shock.  In  the  June  ’79  issue  of 
Creative  Computing  I  found  a  game 
program  entitled  “Inspector  Clew -So.” 
Further  investigation  revealed  that  the 
program,  the  author,  and  accompanying 
article  were  identical  to  the  RC  piece. 

I  bring  this  to  your  attention,  since  it 
reduces  the  amount  of  new  software  I 
normally  find  in  RC  and  CC,  and  also 
because  you  may  have  been  led  to  believe 
RC  would  be  the  only  publisher  of  the 
game.  On  the  latter  point,  1  cannot 
draw  any  conclusions  since  I  do  not 
know  under  what  circumstances  you 
published  it. 

Anthony  Giancola 
12600  Northton  Ct. 

Upper  Marlboro,  MD  20870 

Yes,  we  were  under  the  impression  that 
RC*  would  be  the  only  publisher  of 
"Gew-So"~or  at  least  the  first  one. 
The  moral  of  this  stoo'  is:  if  yon  ore  a 
writer  submitting  an  article  to  two 
competitive  publications  simultaneously, 
you  are  obligated  to  let  both  sets  of 
editors  know.  If  you  don 't,  duplications 
like  the  one  above  are  likely  to  result. 
With  so  much  good  material  out  there, 
no  one  wants  to  waste  space  this  way! 


TOLKIEN  DEBATE  CONTINUES 

I  find  Lon  Ponschock’s  letter  in  the  July- 
August  issue  quite  provocative.  1  agree 
with  much  he  has  to  say  and  share  his 
bias  towards  the  expression  of  depth  and 
complexity  in  human  motivation.  Es¬ 
capist  fantasy  can  be  shallow ,  although  1 
won’t  discredit  the  relief  it  offers  our 
already  complex,  troubled  world.  Sword 
and  sorcery  literature  also  strikes  me  as 
vile,  and  it  disturbs  me  that  the  filmed 
version  of  Lord  of  the  Rings  seems  to 
overempliaslze  this  aspect. 

I  admit,  however,  to  some  difficulty  in 
distinguishing  between  Mr.  Ponschock  s 
critique  of  the  film  and  his  critique  of 
the  books,  i  get  the  impression  that  he 
has  not  read  the  Trilogy ,  and  if  so,  I 
wish  he  liad  limited  his  remarks  to  the 
film. 

I  agree  that  smugness  is  usually  an  irri¬ 
tating  trait,  in  Tolkien  fans  or  anyone 
else.  Tolkien’s  books  are  hardly  above 
criticism,  and  there  has  been  some 
highly  literate  criticism  of  them.  Back 
in  the  mid -60s  when  I  first  read  the  books 
(in  their  pirated  Ace  Books  editions), 
back  when  very  few  knew  the  difference 
between  an  ore  and  a  hobbit -hole,  1 
encountered  a  different  kind  of  smugness: 
the  smugness  of  prejudice  that  declared 
that  if  it  was  fantasy,  then  it  couldn't 
be  good. 

1  do  take  strong  exception  to  Mr.  Pons¬ 
chock’s  “master  race”  theme,  however. 


He  is  flatly  wrong  here,  for  neither  the 
film  nor  the  books  are  operating  on 
this  level.  We  are  not  “given  to  believe 
that  the  master  race  is  entitled  to  the 
power  (ring).”  The  theme  is  that  no  one 
is  entitled  to  it,  since  its  corruptive 
power  is  absolute.  Gandalf  s  mentor, 
Saruman,  is  transformed  from  a  white 
wizard  into  a  scheming  demonic  force; 
Boromir  actually  betrays  the  Fellowship 
while  under  its  lure;  poor,  pathetic  Gollum 
is  a  case  study  in  its  evil  effects.  Only  the 
hobbits,  simple-minded  as  they  are,  are 
pure  enough  to  carry  the  ring  and  then 
only  to  its  destruction.  Even  then,  Froao 
is  tempted  so  sorely  that  the  Fellowship 
is  in  constant  danger  from  within  as  well 
as  from  without . 

There  is  motivation  in  the  story,  but  it 
is  not  on  an  ordinary,  personal  level, 
It  is  on  a  heroic,  transpersonal  level- 
common,  not  to  sword  and  sorcery, 
but  to  the  genre  of  medieval  verse  ro¬ 
mance.  It  is  on  a  mythological,  arche¬ 
typal  level.  Duality  on  this  level  is  more 
than  the  righteous  ignorance  of  us  versus 
them,  hobbits  versus  ores,  Aryans  versus 
Jews,  but  rather  a  metaphor  for  the 
life  process  itself.  Our  age  is  now  engaged 
in  its  own  war  of  the  ring.  High  ideals 
are  not  enough,  but  need  to  be  coupled 
with  courage,  selflessness,  and  wisdom, 
especially  in  regard  to  the  corrosive 
edge  of  power.  I  hope  our  heroes,  sung 
and  unsung,  emerge  as  victorious  as 
Frodo  the  Hobbit. 

Michael  Madaj 
Menlo  Park,  CA  94025 
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SIMPLICITY  SELLS 

Comment  on  Jim  Day's  letter  in  May- 
June  issue:  1  can  read  the  BASIC  state¬ 
ments  on  page  51  in  March- April  issue;  I 
cannot  read  his*  Maxim:  KISS  (Keep  it 
simple,  stupid).  No  offense  Jim;  you’ll 
leam. 

Dave  Hawkins 
7340  Maringo 
Dallas,  TX  75227 

NEEDED:  AUTOMATED  BROWSING 

Did  you  ever  try  to  look  up  a  piece  of 
technical  information  in  a  library?  If 
it's  a  small  library,  they  probably  don't 
have  it.  If  it’s  a  large  library,  chances 
are  pretty  good  that  most  of  the  technical 
books  are  kept  in  closed  stacks.  This 
means  you  have  to  know  the  name  of  the 
book  you  want  to  read  before  you  can 
read  it.  So  you  look  in  the  card  catalog 
under  ENCABULATORS,  or  whatever, 
and  try  to  guess  which  of  the  75  books 
listed  is  the  one  you  want. 

The  data  in  the  card  catalog  are  so 
skimpy  that  all  75  of  the  books  sound 
almost  identical.  Oh  sure,  they  list  “In¬ 
troduction  to  Encabulating,”  “Popular 
Encabulators,”  “Recent  Advances  in 
Encabulonics/'etc.  Now,  how  do  you  tell 
which  one  lists  the  annular  grillage  coef- 
flciants  for  solid-state  encabulating  pro- 
filometers?  Maybe  five  or  six  out  of  the 
75.  But  which  ones? 

If  all  75  books  were  sitting  in  an  open 
stack,  you  could  flip  through  the  tables 
of  contents  and  quickly  weed  out  the 
deadwood*  That  is,  you  could  if  they  let 
you  re -shelve  the  books.  Pile  up  75  books 
on  a  table,  and  they  will  kick  you  out  on 
your  dewey  decimal.  So  you  pick  one  or 
two  titles  at  random  and  hope  you  get 
lucky.  Surely  there  has  got  to  be  a 
better  way  to  access  information! 

Some  day  books  will  be  stored  on  video 
disks,  or  the  equivalent,  and  accessed  and 
displayed  under  computer  control.  But 
unless  librarians  get  their  act  together 
and  organize  things  better,  Fm  afraid 
e  new  system  will  be  as  intractable  as 


the  old.  In  looking  through  the  literature 
on  library  science  and  information 
retrieval,  I  see  great  effort  being  ex¬ 
pended  on  fancy  indexing  schemes,  etc., 
but  very  little  seems  to  have  been  done  to 
give  the  end  user  quick  and  convenient 
access  to  the  contents  of  an  automated 
library. 

If  the  library  of  the  future  is  to  be  of 
any  real  use,  then  someone  is  going  to 
have  to  come  up  with  the  automated 
equivalent  of  “browsing,”  By  that  I  mean 
the  ability  to  “flip”  very  quickly  through 
a  selected  document,  beginning  at  any 
point  in  that  document.  It  should  also  be 
possible  for  a  terminal  user  (who  may  or 
may  not  be  physically  present  at  the 
library)  to  “tag”  a  document  as  pertinent, 
impertinent,  etc.,  and  to  instantly  extract 
selected  portions  for  later  study. 

Many  other  capabilities  would,  of  course, 
be  useful,  but  a  basic  browsing  capability 
is  a  sine  qua  non  as  I  see  it . 

Jim  Day 

17042  Gunther  Street 
Granada  Hills,  CA  91344 


HELP  FLORIDA  EDUCATORS! 

The  Florida  Educational  Computing  Pro¬ 
ject,  which  is  supported  by  the  State  of 
Florida,  has  recently  approved  a  pro¬ 
ject  for  the  evaluation  and  implementa¬ 
tion  of  a  microcomputer  based  instruc¬ 
tional  computing  system.  I  am  writing  to 


you  in  hope  that  we  will  be  able  to  con¬ 
tact  those  who  have  education -oriented 
software  developed  for  microcomputers. 

We  are  looking  for  both  C A! -type  ma¬ 
terial  and  administrative  support  pro¬ 
grams  (e,g.  film  library  inventory /control, 
word  processing,  statistical  analysis,  etc.). 
We  do  not  have  the  funds  to  purchase  any 
software  at  this  time  and  would,  there¬ 
fore,  be  willing  to  certify  the  return  or 
destruction  of  any  program  material 
loaned  to  us. 

We  would  prefer  programs  that  are  not 
too  dependent  on  a  particular  hardware 
configuration  or  operating  system  (if 
one  is  required).  However,  we  would  like 
to  hear  about  any  programs  running  on 
6502,  6800,  or  8060/8085/Z80  ma¬ 
chines. 

The  outcome  of  this  project  will  be  a 
catalog  listing  all  the  acceptable  soft¬ 
ware  packages  we  receive,  their  evaluation 
and  their  source  of  distribution.  This 
catalog  will  be  made  available  to  all 
educational  institutions  in  the  State  of 
Florida  and  to  any  other  interested 
educational  systems. 

If  you  have  software  you  wish  to  submit 
for  evaluation  and  inclusion  in  our 
catalog  or  if  you  have  questions  con¬ 
cerning  our  project  please  contact  me— 

Dr.  Nelson  J.  Towle 
Sarasota  County  Schools 
2409  Hatton  Street 
Sarasota,  Florida  33577 

Phone:  (813)  953-5000  ext.  322 
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Hem  is  a  first  installment  of  tutorial  information  on  the  Texas 
Instruments  Computer.  Later,  we  will  have  articles  dealing 
with  the  color  and  graphical  capabilities  of  this  new  machine. 

We  want  to  welcome  Don  back  to  the  pages  of  RC.  There  is  a 
rumor  (I'm  starting  it!)  that  Don  may  soon  appear  on  the 
masthead  of  this  magazine ...  ~ 


BY  DON  INMAN 

Be  patient-Texas  Instruments  is  making  sound  waves  with  the 
announcement  of  their  Tt-99/4  home  computer.  The  color 
and  sound  capabilities  of  the  Tl  machine  promise  hours  of  fun, 
entertainment  and  learning  opportunities.  We  can't  produce 
the  sounds  here  on  the  pages  of  the  magazine -you  II  have  to 
wait  until  you  get  your  hands  on  a  Tl-99/4.  But  we  can  point 
out  some  of  the  methods  that  will  produce  sounds  from  the  1 l 
home  computer. 

The  material  presented  here  is  taken  from  introduction  to 
77  BASIC ,  a  book  to  be  published  by  Hayden  Book  Company, 
!nc.# 


Sounds  from  the  computer  may  be  created  in  either  the 
Immediate  Mode  or  the  Program  Execution  Mode.  The  sound 
results  from  a  CALL  statement  in  Tl  BASIC  which  uses  an 
external  subprogram  to  execute  sound. 

Amazing  feats  of  magic  seem  to  result  from  the  use  of  the  two 
simple  words  CALL  SOUND.  With  the  CALL  SOUND  state¬ 
ment  you  can  produce  sounds  over  a  range  of  several  octaves, 
covering  frequencies  of  110  to  more  than  44,000  Hertz. 
Since  one  Hertz  {abbreviated  Hz)  is  equal  to  one  cycle  per 
second,  sounds  can  vary  from  110  cycles  per  second  (A 
below  low  C  on  a  piano  keyboard)  to  over  44,000  cycles  per 
second  {well  above  human  hearing  limits).  You  can  also 
control  the  duration  and  the  volume  of  the  sound.  The 
duration  of  the  sound  ranges  from  1  to  4,275  milliseconds. 
Since  one  thousand  (1,000)  milliseconds  equals  one  second, 
the  duration  range  could  be  stated  as  being  from  0.001  to 
4.275  seconds.  Volume  selections  are  scaled  from  0  to  30. 
Zero  and  one  produce  the  same  sound  level  and  are  the 
loudest.  Thirty  produces  the  quietest  level.  (Remember  too, 
that  since  the  Tt-99/4  plays  through  a  TV  monitor,  the 
volume  control  of  the  monitor  has  ultimate  control  over  the 
sound  level.)  Up  to  three  tones  and  one  type  of  noise  may  be 
produced  simultaneously  over  a  given  time  duration. 


*  Introduction  to  Tl  BASIC;  Inman,  Zmtota.  AlbrecbtandDvmax. 

Hayden  Book  Company,  Inc.;  B0  Euex  St.;  Rochelle  Park,  NJ  07662. 
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In  the  Immediate  Mode,  you  need  no  line  numbers.  Just 
type  in  the  statement: 


Tone 

frequency  (Hz) 


Duration 


The  example  above  produces  a  note  of  440  Hz  with  a  duration 
of  1,000  milliseconds  tone  second)  and  a  loudness  value  of 
two  (quite  loud!).  Musicians  call  this  note  JiA  above  middle 
C." 

To  play  two  notes  at  once,  you  add  the  frequency  and 
loudness  values  to  those  of  the  first  note.  See  how  this 
enhances  the  sound  (when  you  get  your  TI-99/4  computer), 

Here's  how  it  looks  on  the  video  display. 


Note:  Because  the  statement  above  contains  exactly  28 
characters  f tetters,  spaces ,  and  symbols),  the  cursor  moves 
down  to  the  next  line  as  soon  as  you  type  the  close  parenthesis 
symbol.  The  Tl  computer  displays  28  text  characters  per  fine. 
Be  sure  that  you  remember  to  press  [ENTER  ] . 

Note  that  you  type  the  duration  parameter  (the  number  code 
that  determines  how  long  the  sounds  last)  only  one  time- 
at  the  beginning  of  the  CALL  SOUND  statement.  Arbitrarily, 
both  of  the  sounds  must  last  for  the  same  length  of  time,  On 
the  other  hand,  you  can  vary  the  loudness  parameters.  What 
would  happen  if  you  typed  5,  instead  of  2,  for  the  second 
note's  loudness.  If  you  have  a  T I *99/4  and  try  it,  you  wilt 
find  out  that  the  second  note  will  be  quieter  than  the  first. 

Well,  that  didn't  sound  too  bad.  Let's  go  one  step  further 
and  try  three  notes  at  once. 


CALL  SOUND(1000 ,440, 2, 659, 2, 
880,2) 


(Part  of  this  CALL  SOUND  statement  extends  to  the  second 
line,  since  Tl  BASIC  uses  only  28  positions  per  line.  This  gives 
large,  clear,  readable  text  on  the  screen.) 

You  can  also  produce  noise  instead  of  music  notes.  Usually, 
we  want  to  avoid  noise  when  making  music,  but  it  may  be 
useful  at  times.  "Noise"  is  rather  hard  to  define  in  words.  It's 
best  for  you  to  experiment  and  hear  for  yourself  what  it 
sounds  like.  Does  it  sound  like  static?  Play  around  with  the 
noise  parameter  awhile  (—1  through  —8)  to  hear  what 
differences  can  be  detected.  Vary  the  loudness  also.  Try  these 
examples  first: 


You  can  simultaneously  produce  up  to  three  tones  and  one 
"noise"  over  a  given  time  duration. 


CALL  SOUND (1000,440,2,659,2, 
880,2,-3,2) 


To  provide  more  flexibility,  you  may  use  variables,  rather  than 
numeric  constants,  in  the  CALL  SOUND  statement.  For 
example,  let's  use  these  variables. 


T  =  time  (duration 
V  =  volume  (loudness) 

C  =  262  (middle  C  on  the  piano) 
E  =  330  (E) 

G  =  392  (G) 
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Then  we  type  in  the  following  LET  statements: 


LET  T  =  1000 
LET  V  =  1 
LET  C  =  262 
LET  E  =  330 
LET  G  =  392 


Next  comes  the  CALL  SOUND  statement. 


GOTO  DEMONSTRATION  PROGRAM  #1 


10  LET  DURATION  =  500*'| 
20  LET  TONE  =  110 
30  LET  LOUDNESS  =  2 


Jf-  Original  sound  values 


40  CALL  SOUND (DURATION, TONE, ^ 
LOUDNESS)  This  makes  the  sound 

50  TONE  =  TONE+15  f— ^ 

60  GOTO  40 


Increase  the  tone 


Go  beck  and  make  a 
new  sound 


CALL  SOUND (T,C,V,E,V,G,V) 


The  video  display  will  look  something  like  this,  but  we  can't 
show  the  sound.  You  must  try  it.  It  sounded  pretty  good 
through  our  TV  speaker . 


>  LET  T  =  1000 

>  LET  V  =  1 

>  LET  C  =  262 

>  LET  E  =  330 

>  LET  G  =  392 


>  CALL  SOUND (T,CrV,E,V,G,V) 


By  experimenting  with  other  values  for  duration  tone 
volume,  and  noise  within  the  required  range  of  vaHies  for  each 
you  can  experience  a  variety  of  sounds.  (A  list  of  musical  note 
frequencies  is  included  at  the  end  of  th.s  article.)  You  II  soon 
be  able  to  create  imaginative  sound  effects  for  use  in  your 
p,oU».  The  ImnwIM.  Mode  i,  helpful  forfhietYP. 

of  experimentation. 

PROGRAMMING 

After  you  have  experimented  awhile  in  the  Immediate  Mode, 
you'll  want  to  try  a  few  programs.  The  CALL  SOUND  state- 
ment  works  the  same  way  in  a  program  as  rt  tioes  in  the 
Immediate  Mode.  When  you're  ready  to  enter  a  program, 
type  NEW  and  press  1  ENTER]  .  The  first  task  in  the  program 
is  to  assign  values  to  the  variables  that  you'll  use. 


Before  running  the  program,  you  should  remember  that  the 
program  will  be  running  in  an  endless  loop  (lines  40-60).  It 
will  terminate  in  one  of  two  ways: 

1.  You  may  terminate  it  at  any  time  by  pressing  |  SHIFT) 
fcl  on  the  keyboard. 

2.  If  the  tone  value  goes  out  of  range  (above  5500),  auto* 
matie  termination  will  occur. 

If  you  run  the  program,  listen  to  the  tones  that  are  made. 
Your  ears  may  object  to  the  sounds  created  by  Program  4  1. 
After  this  you'll  appreciate  Program  #  2.  Since  the  notes  o 
the  normal  musical  scale  are  not  exactly  15  units  apart. 
Program  #  1  may  produce  some  unpleasant  sounds.  To  correct 
this  we'll  try  other  values  for  TONE  that  provide  a  one-octave 
scale. 


GOTO  DEMONSTRATION  PROGRAM  #2 


10 
20 
{  30 
40 
\  50 
1  60 
’  70 
80 
90 

Uoo 


LET 
LET 
C  = 
D  = 
E  = 
F  = 
G  = 
A  = 
B  = 
HIC 


—  T  for  time 
■  V  for  volume 
Frequency  for  middle  C  on 
the  piano 


—  HIC  for  high  C 

Separate  CALL  SOUND 
statements  for  each 
note  . 


200  CALL 
300  CALL 
400  CALL 
500  CALL 
600  CALL 
700  CALL 
800  CALL 
900  CALL 


SOUND  (T ,  C ,  V)  -\ 
SOUND (T,D,V) 
SOUND (T , E , V)  l 

SOUND (T,F,V)  \ 

SOUND (T,G,V)  / 

SOUND (T, A, V)  \ 
SOUND (T,B,V)  \ 

SOUND (T, HIC, V) ) 


950  GOTO  200  * - 

ISHIFTI  [c)  to  itop  it. 
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Run  the  program.  Up,  up,  up  you  go  until  you  reach  high  C. 
Then  the  GOTO  statement  at  line  950  sends  you  back  to 
middle  C  to  start  over.  STOP  THE  PROGRAM!  Then  reverse 
the  order  of  tines  200-900.  If  you  run  the  program  with  those 
lines  reversed,  the  notes  go  down,  down,  down  from  high  C  to 
middle  C.  Once  again,  line  950  causes  the  sounds  to  be 
repeated  over  and  over  again.  Monotonous,  but  much  easier 
than  practicing  the  scales  on  the  piano. 

You  have  piayed  an  octave  both  up  and  down.  Now  let's  put 
them  together  so  that  you  go  Up,  Down,  Up,  Down,  etc. 

We  replace  lines  200-950  with  the  following. 


f  235 
L°I0P  240 
245 
250 
\  255 

\  260 
\  265 
^  270 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

GOTO 


SOUND (T , C  ,L)  \ 

SOUND (T ,  D ,  L) 
SOUND (T , E , L)  / 
SOUND (T,  F ,  L)  1 
SOUND (T,G, L)  ( 
SOUND (T ,  A,  L)  \ 
SOUND (T , B ,  L) 
SOUND (T,HIC,LK 
SOUND (T, B ,  L) 
SOUND (T, A, L) 
SOUND (T , G ,  L)  \ 
SOUND (T, F, L)  ( 
SOUND (T,E ,  L)  1 
SOUND (T ,  D ,  L)  J 
200  f - Gobackand 


UP.  UP,  UP 


DOWN, 

DOWN. 

DOWN 


repeat  It  all 


Your  fingers  naturally  object  to  all  the  repetitive  typing.  So 
we'll  have  to  find  a  shorter,  more  powerful  way  to  accomplish 
the  same  result.  A  logical  way  to  do  this  would  be  through  a 
FOR -NEXT  loop  with  READ  and  DATA  statements.  The 
program  becomes  much  shorter. 


MODIFIED  SCALE  PROGRAM 

10  LET  T  =  500 
20  LET  V  =  2 
30  FOR  X  =  1  TO  15 
40  READ  N 

50  CALL  SOUND (T,N,V) 

6  0  NEXT  X 

70  END  N  for  now 

100  DATA  262,294,330,349,392 
110  DATA  440,494,523,494,440 
120  DATA  392,349,330,294,262 

Up  and  Down  in  order 


To  make  the  scale  play  continuously  up  and  down  you  could: 


1.  Change  line  70  to: 

2.  Add  line  80: 

3.  Change  line  120  to: 

4.  Change  line  30  to: 


70  RESTORE 
80  GOTO  30 

120  DATA  392,  349,  330,  294 
30  FOR  X  =  1  TO  14 


The  beauty  of  this  program  is  that  you  can  now  play  any 
tune  that  you  want  by  changing  the  DATA  list  and  the 
upper  limit  for  the  FOR -NEXT  loop.  You  could  also  custom 
design  the  program  to  fit  your  needs  by  reading  in  changing 
durations  and  volumes  and  by  including  the  variables  T  and  V 
in  the  FOR -NEXT  loop  and  DATA  statement. 


CUSTOM  FITTED  NOTES  PROGRAM 

10  FOR  X  =  1  TO  8 
20  READ  T ,N , V 
30  CALL  SOUND (T,N,V) 

40  NEXT  X 
50  RESTORE 
60  GOTO  10 

100  DATA  100,262,2,100,294,3 
110  DATA  200,330,2,100,349,3 
120  DATA  100,392,2,100,440,3 
130  DATA  100,494,2,500,523,2 


This  program  would  play  up  the  scale  with  varying  durations 
and  volumes.  It  would  be  easy  to  modify  it  to  play  any  tune 
desired  by  altering  the  DATA  list.  Of  course,  you  could  play 
simultaneous  notes  to  make  chords  by  changing  the  CALL 
SOUND  statement  to  something  like  this: 


30 


CALL  SOUND (T, N 1 , VI ,N2,V2,N3,V3) 


Your  DATA  statement  would  then  have  to  include  values  for 
each  note  and  volumes  for  each  chord. 

GAME  TIME 

Let's  take  a  slight  diversion  and  play  a  game.  Surely,  you  have 
played  Guess  My  Number  or  one  of  its  many  variations.  A 
novel  version  of  the  number  guessing  game  can  be  created  on 
the  TI-99/4  using  its  sound  capabilities.  The  following 
program  plays  a  tone  between  131  cycles  per  second  and  247 
cycles  per  second.  Your  role  Is  to  guess  the  frequency  of  the 
tone.  The  program  lets  you  know  if  your  guess  is  lower,  higher 
or  equal  to  the  frequency  of  a  random  tone  that  is  generated 
by  the  computer.  When  you  guess  the  frequency  of  the  note 
correctly,  the  program  plays  the  note  three  times  and  begins 
the  game  again  with  a  new  random  note. 
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RECREATIONAL  COMPUTING 


RANDOM  MUSIC 


RANDOM  NOTE  GUESSING  GAME 

Selects  tone  131  through 

10  CALL  CLEAR  247  j 

20  TONE  -  INT ( 117*RND) +  131  ( — 

30  PRINT  "OK,  I  HAVE  A  TONE" 

40  PRINT 

50  PRINT  "THE  TONE  IS — " 

60  CALL  SOUND  { 100  ,  TONE ,  2 )  f - Play  tons 

7  0  INPUT  "WHAT  IS  YOUR  GUESS  f—  Y«ur guess 

GUESS 

8  0  IF  GUESS  =  TONE  THEN  160  f - OK 

90  IF  GUESS  >  TONE  THEN  125  ^ - Toohigh 

95  CALL  SOUND  (100  ,  GUESS,  2)  f— Piey  the  guess 
100  PRINT  "TOO  LOW!!" 

110  PRINT  "TRY  A  HIGHER  TONE 

U 

120  GOTO  40 

125  CALL  SOUND  £100  f  GUESS,  2)  fPiav  the  guess 
130  PRINT  "TOO  HIGH!!" 

140  PRINT  "TRY  A  LOWER  TONE" 

150  GOTO  40 

16  0  PRINT 

170  PRINT  "YOU  GUESSED  IT!!" 

180  FOR  PLAY  =  1  TO  3f - Way  the  tone  3  times 

190  CALL  SOUND (100 , TONE, 2) 

200  NEXT  PLAY 

210  PRINT 

220  FOR  DELAY  =  1  TO  500  i - Delev  loop 

230  NEXT  DELAY 
240  GOTO  10 


For  an  interesting  variation  of  this  game,  remove  lines  100, 
110,  130  and  140,  These  lines  contain  visual  messages  telling 
you  if  you  are  high  or  low.  Without  the  messages,  you  have  to 
play  the  game  by  ear. 

The  tone  limits  can  be  changed  in  line  20.  Also,  you  may  want 
to  add  the  RANDOMIZE  statement  to  create  a  new  series  of 
random  tones  each  time  that  you  run  the  program.  If  so,  just 
enter  this  line: 


15  RANDOMIZE 


No  provision  was  made  in  the  program  to  detect  invalid  inputs 
(line  70).  IF-THEN  statements  can  be  used  to  detect  and 
reject  invalid  inputs. 


You  can  make  the  computer  play  some  interesting  (but  not 
necessarily  enjoyable)  "music"  by  letting  it  choose  random 
notes. 


RANDOM  NOTES  PROGRAM 


10  CALL  CLEAR 
15  LET  C  =  262 
20  LET  D  =  294 
25  LET  E  =  330 
30  LET  F  =  349 
35  LET  G  =  392 
40  LET  A  =  440 
45  LET  B  =  494 
47  LET  C2  =  523 
50  RANDOMIZE 


55  NOTE  =  INT ( 8*RND) +1 < — Select  a  random  note 
60  TIME  =  INT  ( 1000  *RND) +100  f— and  duration 
6  5  VOLUME  =  2  * - Fix  volume 


70  IF  NOTE  =  1 
75  IF  NOTE  =  2 
80  IF  NOTE  =  3 
85  IF  NOTE  =  4 
90  IF  NOTE  =  5 
95  IF  NOTE  =  6 


100 

IF  NOTE  =  7  THEN  800 

105 

NOTE 

=  C2 

115 

CALL 

SOUND ( TIME , NOTE , 

UME) 

120 

GOTO 

55 

200 

NOTE 

=  C 

210 

GOTO 

115 

300 

NOTE 

=  D 

310 

GOTO 

115 

400 

NOTE 

=  E 

410 

GOTO 

115 

500 

NOTE 

=  F 

510 

GOTO 

115 

600 

NOTE 

=  G 

610 

GOTO 

115 

700 

NOTE 

=  A 

710 

GOTO 

115 

800 

NOTE 

=  B 

810 

GOTO 

115 

THEN  200  Determine  the  note 

THEN  300  chosen 

THEN  400 

THEN  500 

THEN  600 

THEN  700 


Play  the  note 
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Run  the  random  notes  program  (as  long  as  you  can  tolerate  it). 
When  you're  ready  to  stop  press  I  SHIFT  |  |  Q  1. 


Now  that  you've  let  the  computer  play  its  own  music,  why  not 
play  some  music  of  your  own?  Let's  see  if  we  can  modify  the 
Random  Notes  Program  to  provide  a  Musical  Interlude 
Program  where  you  can  choose  your  own  notes. 


MUSICAL  INTERLUDE  PROGRAM 


10  CALL  CLEAR 
15  C  =  262 
20  D  =  294 
25  E  =  330 
30  F  =  349 
35  G  =  392 
40  A  =  440 
45  B  =  494 
47  C2  =  523 

leave  a  space 

50  INPUT  "NOTE  A$ 

70  IF  A$  =  "C"  THEN  200 n 

75  IF  AS  =  "D"  THEN  300  \ 

80  IF  A$  =  "E"  THEN  400 

85  IF  A$  =  "F"  THEN  500  V ,  Compare  input 

90  IF  A$  =  "G"  THEN  600  (  tonote 

95  IF  A$  =  "A"  THEN  700  \ 

100  IF  A$  =  "B"  THEN  800  \ 

105  IF  AS  =  "C2"  THEN  900  ) 

110  GOTO  50  4 - Go  back,  incorrect  input 

115  CALL  SOUND  (100  ,  NOTE ,  2 )  ^ —  Play  the  note 


117  FOR  DELAY  =  1  TO  50 

119  NEXT  DELAY 

120  GOTO  50 

200  NOTE  =  C  ^ - Set  NOTE  equal  to  key  pressed 

210  GOTO  115 

300  NOTE  =  D 
310  GOTO  115 

400  NOTE  =  E 
410  GOTO  115 

500  NOTE  =  F 
510  GOTO  115 

600  NOTE  =  G 
610  GOTO  115 

700  NOTE  =  A 
710  GOTO  115 

800  NOTE  =  B 
810  GOTO  115 

900  NOTE  =  C2 
910  GOTO  115 


If  you  run  the  Musical  Interlude  Program,  the  computer  will 

NOTE  C 

ask  you  for  a  note.  You  then  type  in  the  note  desired  (A.B. 

C,D,E,F,G  or  C2)  followed  by  the  1  ENTER  1  key. 

NOTE  D 

For  example,  when  the  screen  shows: 

NOTE  E 

NOTE  F 

NOTE  □ 

etc. 

and  you  press  [a]  1  ENTER  I ,  the  note  A  will  play.  The  screen 
keeps  a  record  of  the  keys  that  you  depress: 


You  can  then  make  a  nice,  dean  method  to  STOP  THE 
MUSIC  by  using  an  IF-THEN-ELSE  statement  at  line  110* 
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Add - >  9  50  END 


Now  if  no  "legal"  note  has  been  pressed,  the  computer  checks 
A$  to  see  if  you  want  to  stop.  If  you  have  typed  an  S,  the 
computer  goes  to  line  950  and  stops.  If  you  have  not  typed  a 
legal  note  or  an  S,  there  was  an  error  in  your  input.  The 
computer  then  returns  to  line  50  for  a  new  input. 

Additional  applications  of  the  sound  features  of  the  TI-99/4 
can  be  found  in  the  Hayden  book:  An  Introduction  to  77 
BASIC  referenced  on  the  first  page  of  this  article. 


TABLE  OF  SOUND  FREQUENCIES 


Frequency 

Frequency 

Note 

cycles/sec 

Note 

cycles/sec 

A 

110 

A 

880 

A# 

117 

A# 

932 

B 

123 

B _ 

_  988  _ 

C 

131 

C 

1047 

C# 

139 

c# 

1109 

D 

147 

D* 

1245 

E 

165 

E 

1319 

F 

175 

F 

1397 

F# 

185 

F# 

1480 

G 

196 

G 

1568 

G* 

208 

G# 

1661 

A 

220 

A 

1760 

A# 

233 

A# 

1865 

B 

247 

B _ 

_  1976 _ 

C 

262 

C 

2093 

Cl 

277 

C# 

2218 

D 

294 

D 

2349 

D# 

311 

D# 

2489 

E 

330 

E 

2637 

F 

349 

F 

2794 

FI 

370 

FI 

2960 

G 

392 

G 

3136 

G# 

415 

G# 

3322 

A 

440 

A 

3520 

B 

494 

B 

_  I951_ 

C 

523 

C 

4186 

c# 

554 

e# 

44  35 

D 

587 

D 

4699 

D* 

622 

D  t 

4978 

E 

659 

E 

5274 

F 

699 

F 

5588 

F# 

740 

G 

784 

G# 

831 

DUNJONQUEST ™  Presents 


sfgftpii 


•  Take  your  favorite  character— or 
let  the  computer  create  one  for 
youl 

•  Let  the  Book  of  Lore  guide  you 
through  a  DUNJONQUEST r“ 
within  the  Temple, 

•  Decide  to  fight  the  monsters  or 
grab  the  treasure  and  run— but 
don't  think  too  long— they'll  come 
after  you! 

The  Temple  of  Apshaf — for  the 
TRS-80  (Level  IU6K)  and  PET 
(32K]  microcomputers. 

Ask  your  local  dealer 
or  send  a  check  for  $24.95  to: 


The  Vauii  s> f  the  Dead  is 
but  one  of  the  many 
dark  and  fearsome 
mysteries  within  the 
mined  Temple  of 
Apshai.  The  Temple  of 
Apshai  is  your  first 
adventure  in  the 
DUNJGNQUESr"  series 
of  fantasy  role  playing 
games, 

DUNJONQUEST'*  is  a 
complete  game  system 
and  The  Temple  of  Apshai 

is  a  complete  fantasy 
adventure  game  for  you 
and  your  microcomputer 

OVER.  200  ZOOM  ! 
OfStL  20  MMT£&{ 
OVER.  70 


Automated  Slmulatlons-Department  Q, 
P.O.  Box  4232,  Mountain  View,  CA  94040 


Now  you  can  really  expand  your  horizons  with  the  tiny-c 
structured  programming  language  The  tiny-c  owner's  manual 
(including  8080  and  PDP-11  source  code  and  tiny-c  in  C)  is 
still  just  $40  And  we've  added  these  new  formats  to  really 
egg  you  on  TRS-80  Level  II  SYSTEM  Format  Cassette,  CP  M 
Diskettes  with  8080  Source,  POP- 1 1  Diskette,  North  Star  5" 
Diskette;  KIM  and  $YM  cassettes.  And  there's  more,  plus  lots  to 
come  Order  your  liny-e  owners  manual  today  ond  gel  the 
whole  story.  Coll  or  write  tiny  c  associates,  PO  Box  269, 


Holmdel,  N  J  07733.  (201)  671-2296 
You'll  quickly  discover  tiny-c  is  all 
tfs  cracked  up  to  be 

New  Jersey  residents  Include  5%  sales  tax  Visa 
and  MastefCharge  accepted  Include  charge 
plcrle  number  with  order 


tin 


r 


1979 


SEPT  ‘OCT 


15 


BY  TODD  VOROS 


The  "Universe"  article,  by  Les  LaZar t  (RC,  March -April 
1979)  generated  considerable  response  and  correspondence, 
Todd  sends  us  this  "short  letter  to  the  Editors"  outlining  the 
next  steps  in  developing  a  Universe  game  context  The  inform¬ 
ation  in  this  article  is  thought -provoking  and  well  developed. 
We  know  that  there  is  a  universe  of  "Universe"  fans  some¬ 
where  out  there.  Read  this  and  send  us  your  contributions, 
thoughts,  opinions,  and  suggestions  for  what  in  the  world  to 
do  with  the  "Universe. "  -  RZ 

I  read  your  article  on  "Universe"  with  considerable  interest. 
Since  1  am  currently  involved  in  the  implementation  and  main* 
tenance  of  complex  multi-user  teleprocessing  systems,  I  would 
like  to  contribute  some  technical  suggestions  for  the  imple¬ 
mentation  of  multi-player  "Universe"  games.  The  games  may 
or  may  not  include  remote  teleprocessing  "Universe"  links. 

From  experience,  one  of  the  most  troublesome  problems  for 
the  user  of  system  services  is  the  burden  of  specification.  By 
this,  I  mean  the  machine -specific  environmental  knowledge 
that  is  necessary  to  support  the  intended  applications.  The 
information  that  is  usually  needed  is  often  not  part  of  the 
"working"  section  of  a  program  concerned  directly  with 
implementing  the  user  code.  Generally,  the  more  system 
services  available  the  more  specification  is  required.  Specifica¬ 
tion  becomes  the  price  tag  for  implementation  flexibility, 

This  situation  rapidly  becomes  intolerable  in  a  smell  machine 
environment  One  cannot  force  an  implementor  to  learn  the 
idioms  of  every  small  machine,  or  restrict  a  user  to  a  wide  set 
of  flexible  services  on  a  single  machine. 

This  was  the  problem  faced  by  the  original  implementors  of 
high-level  languages.  Standardization  was  the  solution.  Handle 
machine -specific  differences  invisibly  for  the  casual  user, 
at  the  expense  of  some  additional  overhead,  in  terms  of 
memory  and/or  execution  speed. 

Consider  the  following:  The  price  of  memory  is  steadily  de¬ 
clining  as  semiconductor  fabrication  technology  is  able  to 
mass-produce  denser  memory  systems.  As  quantity  increases, 
price  must  drop.  This  bodes  well  for  the  home  hobbyist. 
Thus,  when  designing  systems,  memory  must  no  longer  be  a 
prime  concern— ease  of  user  interface  to  the  system  must 
be  at  the  forefront  of  design  concepts  I  This  must  be  true  for 
both  the  implementor  (the  user  of  system  services)  and  the 
end  user  (the  user  of  implementor  services). 


With  this  in  mind,  I  offer  the  following  design  suggestions: 

Thi  concept  of  FENCING  (To  limit  complex? ty I 

Communication  M APP ING  (T o  simpl ify  connec t ions) 

Standardized  Communication 

Services  (To  minimize  implementation  efforts.) 

Each  of  these  concepts  will  be  discussed  in  detail.  The  idea 
here  is  that  the  final  architecture  should  be  easily  integrable 
into  a  high-level  language  available  on  micro  computer  sys¬ 
tems.  Note  that  once  the  architecture  is  finalized,  it's  external 
appearance  is  similar  from  machine  to  machine.  However, 
the  machine -specific  implementation  of  internals  may  be 
quite  different.  This  shall  be  our  design  goal.  The  specification 
of  the  architecture  requires  a  machine-independent  language. 
Portions  of  the  architecture  in  this  letter  are  annotated  in 
Sketchcode  where  appropriate,  (For  information  on  Sketch  - 
code  see  PC,  Vol,  6,  No,  6,  May -  June,  1978.) 

FENCING 

This  component  of  the  architecture  provides  a  "boundary" 
to  the  application's  knowledge  of  its  environment.  Everything 
relevant  to  a  particular  application  is  "inside"  the  fence; 
everthing  else— other  programs,  devices,  users,  etc.  are  "out¬ 
side"  the  fence  and  not  of  concern  to  the  application. 

For  the  multi-player  games  with  inter-user  communication, 
we  define  the  "fence"  as  the  standardized  communication 
specification  interface. 

Any  communication  occurring  by  other  applications  outside 
of  the  "fence"  is  of  no  concern  to  the  currently  executing 
application.  As  a  matter  of  fact,  as  far  as  the  application  is 
concerned,  such  communication  does  not  exist -it  has  no 
knowledge  of  anything  outside  the  "fence," 

This  implies  that  application- to- application  connections 
cannot  occur  unless  they  each  define  an  appropriate  "gate" 
in  their  fences.  Establishment  of  this  "gate"  shall  be  done  by 
invoking  the  FENCE  MANAGEMENT  MANAGER. 

Flexibility  is  the  keyword  in  evolving  a  successful  micropro¬ 
cessor  communication  architecture  while  maintaining  stan¬ 
dardization.  To  achieve  this,  l  suggest  that  we  follow  an  im¬ 
plementation  strategy. 

First,  every  gate  in  the  fence  is  to  have  a  name.  These  names 
are  known  as  resources. 

Second,  the  user  specifies  the  resource  name.  When  a  resource 
is  specified,  the  user  supplies  the  name  of  a  machine -specific 
subroutine  that  will  manage  the  named  resource.  Parameters 
shall  be  passed,  at  the  time  the  fence  "gate"  is  established,  that 
define  machine-specific  hardware  associated  with  the  resource. 


Note  that  this  allows  for  a  very  flexible  mechanism  of  integrat¬ 
ing  new  devices  or  inter  *  communication  mechanisms  to  be 
implemented.  Generally,  the  resource  manager  named  is  pro¬ 
bably  a  machine -language  subroutine  to  handle  some  device. 

Third,  a  resource  name  is  associated  with  a  resource  manager, 
it  remains  associated  until  respecified. 

Also  note  that  establishing  a  resource  name  ("gate"  in  the 
fence)  with  a  resource  manager  does  not  transfer  control  to 
the  manager  code— it  merely  logs  the  resource  name  and  loca¬ 
tion  of  the  manager  code  for  later  usage. 

The  following  is  the  environmental  specification  necessary  to 
establish  connections.  The  actual  code  in  the  fence  manage¬ 
ment  manager  itself  is  rather  brief.  For  example,  to  establish 
‘erminal  "gate"  we  might  code: 

CALL  FENCE  (  User-resource-name  , 
keyboard  port  =  , 

printer  port  =  , 

I/O  driver  =  MYTTYCODE) 

where  MYTTYCODE  is  the  name  of  the  teletype  handler  in 
my  system.  Assume  we  wish  to  build  a  simple  intercom  be¬ 
tween  two  terminals.  The  keyboard  and  printers  on  each  ter¬ 
minal  have  their  own  port  numbers.  Assume  that  this  com¬ 
munication  function  is  to  be  run  by  a  sing/e  application. 

Then  the  following  might  apply: 

Terminal  1 
keyboard  =  port  1 
printer  =  port  2 
Terminal  2 
keyboard  =  port  1 7 
printer  =  port  1 8 

We  will  give  Terminal  1  the  resource  name  'CRTOOV 
We  will  give  Terminal  2  the  resource  name  TTY0OV 

Then  we  would  need  to  invoke  the  Fence  Manager  twice: 

CALL  FENCE  (  'CRTOOT  ,1,2,  TERMCODE) 
CALL  FENCE  (  'TTYOOT  ,  17,  18,  TERMCODE) 

The  architecture  proposed  does  not  specify  the  syntax  of 
the  FENCE;  the  above  is  merely  a  hypothetical  example 
of  what  a  machine-specific  implementation  of  that  function 
may  look  like.  The  syntax  should  be  adapted  based  on  the 
machine  and  high-level  language  currently  being  used. 
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The  Sketch  code  for  the  Fencing  Manager  follows: 


FENCE  MANAGER:  ACQUIRE  PASSED  PARAMETERS 

IF  RESOURCE-NAMES  TABLE  FULL, 

THEN  DO; 

ISSUE  OUT-OF-ROOM  MSG 
TERMINATE  APPLICATION 

DO  WHILE  (EMPTY  SLOT  IN  TABLE  NOT  FOUND) 

EXAMINE  ENTRY  IN  RESOURCE  NAMES  TABLE 
END  DO; 

STORE  USER  SPECIFIED  RESOURCE  NAME  INTO  TABLE  ENTRY 
STORE  USER  SPECIFIED  PARAMETERS  INTO  TABLE  ENTRY 

IF  RESOURCE-MANAGER  CODE  IS  NOT  LOCATED, 

THEN  DO; 

ISSUE  INVALID-FENCE-SPECIFICATION  MSG 
TERMINATE  APPLICATION 

STORE  ADDRESS  OF  RESOURCE  MANAGER  CODE  INTO  SAME  ENTRY 
RETURN; 


One  final  note  on  establishing  resource -names.  The  resource 
does  not  need  to  be  an  I/O  device  I  This  architecture  allows 
and  promotes  overlays  to  be  considered  as  resources.  For  ex¬ 
ample,  the  establishment  of  an  overlay  for  use  by  a  given 
application  might  involve  the  following  machine ‘Specific 
parameters: 


COMMUNICATIONS  MAPPING 

Communication  MAPPING  is  a  system -provided  service  that 
simplifies  actual  re  source -to -resource  communication*  An 
objective  of  this  architecture  is  to  minimize  the  programmer's 
effort. 


The  'name'  of  the  overlay;  the  FILENAME  on  disk  of  the 
overlay,  and  the  device  on  which  the  overlay  resides: 


CALL  FENCE  ( 

’0VERLAYJ2'  , 
'MATHPKG,  OBJECT1, 
FLOPPYD I SK2 , 
DISKRTN) 


resource  name 
file  name 

device  fife  located  on 
disk  driver  handler 


In  summary,  FENCING  limits  complexity  of  inter-user  and 
inter -application  eommuncation  by  establishing  a  common 
method  of  specifying,  to  an  application,  what  resources  it 
can  communicate  with,  FENCING  does  not  make  actual 
connections,  but  specifies  the  ability  to  do  so,  FENCING 
always  associates  a  support  subroutine  with  a  resource  name, 
FENCING  provides  parameters  for  the  support  subroutine 
(known  as  a  "resource  manager"  in  this  architecture)  to 
perform  its  job- be  that  disk  I/O;  loading  overlays;  or  com¬ 
municating  with  terminals  or  modems.  Connections  are 
established  via  Communication  MAPPING— the  next  topic, 


Two  new  routines,  LINK  and  FREE  are  suggested.  Their  irm 
plementation  is  more  complex  than  that  of  the  FENCING 
MANAGER.  The  objective  of  the  LINK/FREE  manager  is  to 
permit  the  programmer  to  perform  I/O  just  as  he  always  has 
done  in  the  past-with  READ,  WRITE,  REWIND,  etc.  state¬ 
ments  (or  their  equivalent  in  the  language  In  which  he  is  work¬ 
ing)  without  changes!  I 

This  concept  makes  this  proposed  architecture  very  attrac* 
live  from  the  implementation  viewpoint  of  the  system  user.  He 
does  not  need  to  fearn  strange  new  I/O  methods  to  talk  to 
another  CPU,  overlay,  or  resource,.  This  magic  is  accom¬ 
plished  by  the  LINK/FREE  manager  and  here  is  how  it  works. 

When  the  user  generates  his  program,  and  wishes  to  communi¬ 
cate  with  a  resource,  he  issues  a  call  to  the  LINK  routine*  He 
then  proceeds  to  issue  normal  high-level  language  I/O  state¬ 
ments  to  a  'device'  by  the  LINK  manager.  This  is  accomplished 
by  having  the  LINK  manager  modify  generated  high-level 
language  machine  code,*  Obviously,  the  author  of  the  LINK 
manager  must  have  a  good  knowledge  of  the  internals  of  the 
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high-level  language.  But  again,  this  need  only  be  done  once 
for  many  users  of  the  language  and  system  to  benefit  from 
the  architecture  of  this  communications  scheme.  The  code  is 
modified  to  transfer  control  to  the  routine  specified  in  the  call 
to  the  FENCING  MANAGER— the  user's  resource  manager 
routine  whenever  an  I/O  operation  is  to  be  executed. 


Example: 


CALL  LINK 
READ  X,YtZ 
WRITE  Y*Z- 
REWIND 
X-X+1 
WRITE  X 


(’resource  name1)  becomes: 

---------- CALL  user-resource -mgr  tX,  Y,  Zj 

i _ CALL  user- resource  mgr  IX,  Y,  Z) 

l 

I 

1 - 1st  call  :  With  a  flag 

this  is  a  READ. 

_ 2nd  call :  Without  flag  this  1*  a  WR ITE. 


Note  that  all  I/O  requests  will  access  the  resource  specified 
in  the  call  to  the  LINK  Manager,  in  the  above  example.  If  I/O 
is  to  be  performed  to  another  resource,  a  call  to  the  FREE 
manager  must  be  made,  and  another  call  to  the  LINK  manager 
must  be  made  specifying  the  new  resource.  Actually,  LINK 
and  FREE  share  much  common  code,  so  they  will  probably 
be  packaged  together  as  one  routine. 


If  multiple  processes  (jobs  or  tasks)  are  supported  by  the 
system  in  use  it  is  possible  that  some  process  may  already  have 
LINKED  to  a  resource  desired  by  another  process.  In  this  case, 
the  requestor  is  delayed  until  the  "current"  owner  of  the  re¬ 


•  Thus  standardized  communications  services  ere  provided  through 
an  already  familiar  medium -READ  statements,  WRITE  statements 
etc.— that  the  user  has  been  coding  since  he  learned  the  language 


source  issues  a  FREE  for  that  resource.  This  case  is  why 
FREE  is  a  required  part  of  the  architecture,  and  why  two 
LINKS  in  a  row  cannot  be  issued. 

The  LINK/FREE  manager  must  be  capable  of  0)  locating  I/O 
code  generated  by  the  high  level  language,  (2)  locating  a 
resource  in  the  Resource  Table,  (3)  dynamically  inserting  a 
CALL  to  the  associated  user -support  subroutine  for  the  re¬ 
source,  (4)  determining  the  type  of  I/O  operation  being 
performed  and  passing  it  to  the  user- resource  manager  sub¬ 
routine,  and,  (6)  putting  the  caller  of  the  LINK  manager  into 
a  wait,  if  the  resource  requested  is  currently  owned  by  another 
process. 

If  an  attempt  is  made  to  free  a  resource  that  has  not  been 
linked,  a  warning  is  issued  by  the  FREE  manager,  and  the 
request  treated  as  a  'NO  OPERATION'  request,  and  program 
execution  continues. 

If  an  attempt  is  made  to  LINK  to  a  non-existent  resource, 
a  message  is  issued  and  the  program  terminated,  to  allow  the 
user  to  debug  his  problem.  Termination  at  this  point  is  logical 
because  it  is  impossible  to  establish  communication  with  a 
non-existent  resource. 

A  Sketchcode  representation  of  the  LINK/FREE  MANAGER 
follows.  It  assumes  that  compiler -generated  code  is  not  re¬ 
entrant,  and  that  the  machine  code  is  in  modifiable  machine 
memory.  Generally,  for  small  scale  microprocessor  systems 
with  high-level  languages  this  is  a  resonable  assumption.  To 
support  compilers  that  generate  re-entrant  code  would  require 
significant  extensions  to  the  LINK/FREE  manager  logic. 


LINK:  Call  VALIDATE  ROUT! NE tCALLER=L I NK) 

LINKING  ADDRESS  =  User's  resource  manager  subroutine 

associated  with  specified  'resource1 
DO  WHILE  (END  OF  PROCESS  NOT  FOUND), 

EXAMINE  INSTRUCTION  SEQUENCE 
IF  SEQUENCE  IS  AN  I/O  CALL, 

THEN  DO, 

REMEMBER  ORIGINAL  I/O  SEQUENCE  IN  A  SAVE  AREA 
REMEMBER  LOCATION  OF  I/O  SEQUENCE  IN  A  SAVE  AREA 
REPLACE  I/O  SEQUENCE  WITH  CALL  TO  LINKING  ADDRESS 

THAT  WILL  PASS  ORIGINAL  SEQUENCE  PARAMETERS. 

END  DO; 

RETURN 

FREE:  Call  VALIDATE  ROUT  I NE (CALLER=FREE) 

DO  WHILE  (END  OF  REMEMBERED  ADDRESSES  FOR  PROCESS  NOT  FOUND), 

REPLACE  ORIGINAL  INSTRUCTION  AT  EACH  'REMEMBERED'  ADDRESS 

END  piease  reca„  no  UQ  may  be  performed  without  the  user 

Kt  UKN  calling  LINK  first.  Once  LINK  has  been  called,  all  I/O  is  per¬ 

formed  to  the  specified  resource  until  a  call  to  FREE  is  made. 
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Here  is  the  Sketchcode  for  the  VALIDATE  subroutine: 


VALIDATE:  LOCATED  »  'NO' 

DO  WHILE  (All  resource  table  entries  not  checked), 

IF  resource- table-entry  resource  name  matches 
caller’s  resource  name, 

THEN  DO, 

LOCATED  *  'YES' 

END  DO, 

IF  LOCATED  =  'YES' , 

THEN  DO, 

IF  ’FREE'  called  VALIDATE, 

THEN  DO, 

INDICATE  THIS  RESOURCE  IS  UNASSIGNED 
ELSE, 

IF  RESOURCE  IS  ASSIGNED, 

THEN  DO, 

PUT  CALLING  PROCESS  INTO  A  'WAIT'  FOR  RESOURCE 
DISMISS  TO  MONITOR 
ELSE, 


**Resource  available: 

(asynchronous 
entry  by  monitor) 

ELSE, 

IF  CALLER  =  LINK, 

THEN  DO, 

ISSUE  ERROR  MSG 

DUMP  APPROPRIATE  PARTS  OF  MEMORY  FOR  DIAGNOSIS 
ABORT  EXECUTION 

RETURN 


SAVE  PROCESS  IDENTIFICATION  INTO  RESOURCE  TABLE  ENTRY 
INDICATE  RESOURCE  IS  ASSIGNED 

RETRIEVE  ADDRESS  OF  USER'S  RESOURCE  MGR  SUBROUTINE 


Note:  The  sketchcode  assumes  the  existence  of  a  monitor 
functioning  within  the  machine  to  provide  multiple -process 
concurrent  execution.  Thus,  several  independent  processes 
executing  simultaneously  could  wish  to  use  a  specific  resource 
at  the  same  time.  The  first  request  will  be  honored,  alt  other 
requestors  for  the  resource  will  be  placed  into  a  'wait'  for  the 
resource  until  the  first  process  releases  ownership  by  issuing 
a 'FREE' call. 

Thus,  the  sketchcode  assumes  the  monitor  also  monitors  the 
resources  name  table  and  'wakes  up'  processes  awaiting  the 
use  of  a  waited -for  resource.  Thus,  the  VALIDATE  sketch- 
code  has  an  asynchronous  (special,  monitor  only)  entry 


point  which  is  used  by  the  monitor  to  continue  the  exe¬ 
cution  of  a  process  that  had  been  'put  to  sleep'  waiting  for 
a  resource.  This  is  a  minor  violation  of  sketchcode  standards. 
(Shame!  Shame!  —  ED.) 

Obviously,  the  monitor  must  maintain  a  queue  of  processes 
awaiting  use  of  a  resource,  the  length  of  the  queue  being 
n-f  entries  for  the  n-processes  competing  for  the  same  re¬ 
source.  First- In-First-Out  control  of  a  resource  is  given  to 
requesting  processes. 

If  the  same  process  requests  the  same  resource  twice,  it  will 
go  to  sleep  'forever'.  This  is  a  deadly  embrace,  since  the  pro¬ 
cess  can  never  acquire  the  resource. 
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CLOSING  COMMENTARY 


The  design  of  communication  systems,  machine  to  machine, 
or  even  between  processes  within  the  same  machine,  should, 
by  now,  be  shown  to  be  more  difficult  than  one  might  initially 
think. 
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Much  effort  has  been  expended  by  many  programmers  to  solve 
problems  like  these.  This  particular  architecture  may  not  satis¬ 
fy  all  needs  or  requirements  of  microprocessor  users  or  the 
designers  of  'super  game  networks'.  I  would  be  most  interested 
to  hear  of  any  suggestions,  improvements  or  implementations 
of  this  proposed  architecture. 

Since  you  have  read  this  article  up  to  this  point,  you  are  ob¬ 
viously  either: 

a)  An  insatiable  reader  of  computer  literature. 

b)  A  computer  buff. 

c)  A  person  with  too  many  beers. 

d)  All  of  the  above. 

e)  Other. 

f)  Other  than  other. 

Please  circle  the  correct  choice  and  ...  It  is  with  the  hope 
that  work  along  these  lines  may  one  day  bring  the  Don 
Quixote  Starship  to  reality.  May  I  suggest  a  motto  approp¬ 
riate  to  the  closing  of  this  article: 

Computers  should  work- Not  people!! 

(And  help  them  play  games) 


BY  JOHN  DAVENPORT  CREHORE 


Looks  like  Jack's  cryptarithms  are  here  to  stay /  The  reader 
response  to  the  first  set  of  puzzles  was  outstanding.  We  even 
have  a  computer  program  writing  to  us .  (SPOCK  in  the  Puz¬ 
zler's  Postcard  section h  Here  are  some  new  puzzles ,  samples 


and  examples,  the  Postcard  section,  and  the  solution  records 
of  our  new  puzzlers.  We  will  print  solutions  to  all  puzzles  for 
1979  in  the  Jan -Feb  1980  issue  of  RC.  Let's  hear  from  a/i 
of  you /  —  RZ 


NEW  PUZZLES 


Puzzle  9  (Novice ) 


Puzzle  11  (Geniuses) 


SS 
+  SS 
MSI 


Hint:  Look  at  the  Samples  and  Examples, 

Puzzle  10  (Adepts) 

M2  *  FM 
M3 *  =  DCM 

It 

M  =  CDBM 

M5  =  RRRM 


CT-  ND  ■  AA-  TU>  CB  >  D  ■  TU  ■  RT-  ND 

UT-  RY-  BE  ■  TR  •  AC  •  NT-  ET-  AT  •  AB 


Hint:  No  hints  to  geniuses  I  They  compete  on  equal  terms 
with  computers! 


Puzzle  12  (Computers) 


L  SUL  TUL 
E  SSL  TTY 
BM  MHH  HHH 


Hint ;  The  same  five  digits  uniquely  solve  all  four  equations. 

M1  has  an  M  in  the  units  position  of  the  answer;  only  two  Hint:  No  hints  here,  eitherl  How  many  solutions  are  there? 

possible  single  digit  products  can  do  this! 


SAMPLES  AND  EXAMPLES 
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PUZZLER'S  POSTCARDS 


I  must  express  my  disappointment  with  the  puzzles  you  gave 
in  issue  No.  40  . . ,  the  letters  used  to  represent  digits  don  t 
spell  words .  I  haven't  tried  the  multiplication  puzzles  yet, 

I  run  on  a  PET,  occupy  only  2K  of  memory,  and  solved 
puzzle  5  in  30  seconds.  Puzzle  7  took  me  40  minutes.  I  expect 
to  rewrite  part  of  myself  in  machine  language  and  increase 
my  speed.  I'm  less  than  one  day  old  now.  One  of  my  favorite 

pu22l“ SEND 
MORE 

MONEY  SP0C* 

c/o  CALTECH  130-33 
Pasadena,  CA  91125 


These  are  some  of  my  favorite  puzzles.  I  did  all  these  by  hand 
(paper  and  pencil).  I  am  interested  in  seeing  anyone  s  com¬ 
puter  methods,  especially  any  that  don't  try  all  combinations 
(10  factorial?). 

C.A.  Moore 
1265  Kuehnle 
Ann  Arbor,  Ml  48103 


I  have  enjoyed  solving  the  few  cryptarithmic  puzzles  1  have 
come  across  in  my  twenty -three  years.  I  was  pleased  to  see 
some  in  your  last  issue.  It  was  disappointing  that  the  puzzles 
were  easier  than  I  expected  them  to  be.  Puzzle  8  was  a  bit 
easier  to  solve  than  puzzle  7;  perhaps  puzzle  8  should  be  in 
the  adept  category.  Here  is  a  puzzle,  though  not  difficult, 
that  I  like: 

EH 
x  GLK 
TTT 
RLU 

-  David  Hubbard 

1  v  1  v  *  346  Jean  St. 

Mill  Valley,  CA  94941 


I  am  curious  as  to  the  future  of  cryptarithms  and  the  correct¬ 
ness  of  the  solutions  I  am  submitting.  Please  set  your  taliey 
under  my  newly  adopted  puzzler's  name:  "The  Worry  Wart' 
or  TWW  for  short.  (  I  thought  it  was  better  than  Jewish 

Mother!) 

Marvin  Kessler  (TWW) 
586  Elvis  Dr. 
San  Jose,  CA  95123 


1  enjoyed  the  puzzles  and  would  enjoy  seeing  this  as  a  regular 
column  in  RC  {if  restricted  to  one  or  two  pages).  Perhaps  there 
could  be  a  regular  puzzle  column  in  RC,  not  restricted  to 
cryptarithms. 

Comment;  on  the  puzzles: 

•  The  hints  on  #6  were  unnecessary,  especially  (d). 

•  It  took  me  about  two  hours  to  solve  all  eight.  In  retrospect, 

I  did  several  the  hard  way  first. 

•  Number  3  has  a  particularly  elegant  solution  that  I  noticed 
when  I  examined  it  a  second  time.  It  goes  like  this: 

Since  Y  is  a  carry,  it  must  equal  1 ; 

Since  J  has  a  carry  it  must  be  9  and  8  must  be  0; 

Therefore,  A  =  3  and  C  <  3  which  implies  C  =  2; 
Immediately,  F  =  6  and  H  =  4, 

Very  nice,  eh? 

My  puzzler  name  is  a  bit  of  egotism  on  my  part.  It  is  an 
English  school  slang  word  meaning  expert  or  adept,  I  found  it 
while  browsing  through  the  O.E.  D.  one  day. 

Eryk  Vershen  (Dab) 
Menlo  Park,  CA  94025 
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BY  ARTHUR  WELLS,  JR. 


How  about  PILOT  for  your  Apple  written  in  BASIC?  “ Easy 
to  do, "  says  Arthur,  and  proves  it  by  sending  along  the  follow- 
ing  program , 


Now,  it  would  be  delightful  if  a  few  of  you  people  would 
write  some  programs  based  on  this  interpreter.  Write  some¬ 
thing  interesting  (way  out,  absurd,  whatever.. .  )  and  send 
it  on  to  us. 

Arthur  says  if  you  have  questions,  call  him  at  (415)  848-4058 
or  drop  a  line  to  1171  Cragmont  Ave.,  Berkeley,  CA  94708. 
Call  or  write  him  even  if  you  don't  have  any  questions.  1 
believe  Arthur  fust  likes  to  talk  with  lots  of  people.  -RZ 


This  documentation  tells  you  how  to  write,  use  and  store 
programs  written  in  the  PILOT  language  using  a  PILOT 
Language  Interpreter  program  on  your  Apple  II. 

When  the  interpreter  is  run,  it  asks  you  for  the  name  of  the 
program  that  you  want.  If  you  want  to  use  an  existing  pro¬ 
gram,  type  in  its  name  and  hit  the  return  key.  If  you  mis¬ 
name  or  mistype  the  program  name,  the  interpreter  will  tell 
you  and  repeat  the  request.  After  the  program  loads  from 
disk  there  is  a  short  delay  while  the  program  is  prepared  for 
execution.  The  machine  then  asks  “REQUEST?".  You  can 


then  LIST,  EDIT,  or  RUN  the  PILOT  program.  After  the 
program  has  been  run  once,  if  you  want  to  do  it  again,  type 
REP.  Do  not  type  RUN.  RUN  is  used  only  after  loading  and 
editing.  REP  is  used  to  substantially  speed  things  up.  (The 
reason  is  explained  later.) 

If  you  do  not  want  to  run  a  program  but  instead  want  to 
start  writing  one,  push  the  return  key  when  the  machine 
asks  for  a  program  name.  You  will  be  told  to  start  writing 
your  program  and  a  “?”  will  prompt  you.  The  “?"  is  asking 
for  a  line  number.  Line  numbers  from  1  to  255  are  acceptable 
Although  programs  cannot  exceed  255  lines,  this  still  allows 
lor  large  useful  programs.  For  instance,  the  working  parts 
of  the  interpreter  itself  consist  of  less  than  255  statements. 
Die  ;  prompt  at  the  beginning  of  a  line  will  accept  only 
a  number;  if  you  type  something  else,  it  will  go  back  and 
wait  for  a  number. 

After  you  type  the  line  number  hit  the  return  key.  The  curser 
will  move  over  and  a  will  appear.  Now  type"  in  the  com¬ 
mand  and  statement;  then  press  return;  enter  next  line  of  the 
program;  and  so  on. 
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When  you  are  through  writing  the  program,  enter  the  next  line 
number  and  instead  of  a  statement,  type  RUN.  Hopefully,  the 
program  will  work. 


T/ 

A/ 

M 

ME/ 

J  / 

R/ 

E / 

C / 

CK/ 

TY,TN 
AY,  AN 
JY,  JN 
MY,  MN 


PILOT  LANGUAGE  ELEMENTS 


PILOT  CONTROL  COMMANDS 


For  Text  or  Type .  Prints  whatever  appears 
after  “/”.  Commas  and  colons  cannot  be 
used  because  of  limitations  of  Applesoft  (the 
interpreter  language).  T/  statements  can  be 
255  characters  long. 

For  ,4$/:.  Requests  user  input.  Input  may  be 
assigned  to  a  variable  and  printed  later,  using 
a  variable  name,  A  variable  is  a  character 
@  plus  any  combination  of  alphanumeric 
characters.  For  example*  the  instruction 
“A/  @  NAME’*  assigns  the  user  input  to  the 
variable  NAME”. 

For  Match.  Matches  a  string  with  the  last 
user  input.  More  than  one  match  word  or 
phrase  is  permissible;  each  must  be  followed 
by  a  semicolon.  Example:  M/NO;  NOPE;  I 
DON’T  KNOW;  This  is  a  “moving  window” 
match,  which  means  that  if  the  match  word 
is  a  part  of  the  user  input,  a  match  will  still 
be  made.  For  example,  the  match  word 
RAIN  will  show  a  match  with  the  following 
user  inputs:  BRAIN,  DRAIN,  RAIN,  RAIN¬ 
ING,  STRAIN.  The  match  word  EVOL 
matches  with  EVOLUTION  and  REVOLU¬ 
TION. 

For  Match  Exactly.  Matches  a  string  with 
the  user  input,  but  requires  that  match  be 
exact.  The  match  word  RAIN  will  only  show 
a  match  with  the  input  RAIN. 

For  Jump .  Program  execution  jump  to  else¬ 
where,  specified  by  *  and  the  name  of  the 
new  location.  Example;  J/*  BELOW  jumps 
to  wherever  *  BELOW  is  located  in  the 
program. 

For  Return.  Returns  execution  of  program 
to  line  after  the  Jump  that  was  last  exe¬ 
cuted.  J/  and  R/  together  are  like  GOSUB, 
and  RETURN  in  BASIC. 

For  Exit.  Stops  program  execution. 

For  Count ,  Used  with  two  variables  I  and  J, 
Either  variable  can  be  set  to  zero  by  C/ZI  or 
C/ZJ.  Either  can  be  increased  or  decreased 
by  using  the  format  C/I  +  number  or  C/I  — 
number,  where  number  is  any  real  number. 
Example:  C/J  -  12  subtracts  12  from  the 
value  of  J.  The  current  value  of  I  or  J  can 
be  printed  by  using  #  I  or  #  J  in  a  T /com¬ 
mand.  Example:  If  I  =  6  and  @  PLAYER  = 
Arthur,  then  “T/@PLAYERhas  #1  POINTS” 
will  print  “ARTHUR  HAS  6  POINTS”. 
For  Check.  Checks  to  see  if  the  value  of  I 
or  J  is  =  >  or  <  a  specified  value.  Example: 
CK/I=5  checks  to  see  if  1=5. 

If  match  or  check  occurs,  commands  with  Y 
(for  yes)  execute;  If  no  match  or  check 
occurs  commands  with  N  (  for  no)  execute. 


LIST  Asks  ‘"which  lines”  then  lists  them.  If  a  pro¬ 
gram  has  been  run,  commands  will  not  be 
listed  Just  statements. 

EDIT  Will  ask  “which  lines”  then  display  part  of 
program  requested  and  show  a  u?”  for  line 
number  and  then  statement.  To  edit  a  line, 
retype  what  you  want.  To  delete  a  line, 
type  line  number  and  then  leave  command 
space  blank  (just  hit  the  return  key).  You 
can  insert  new  lines  between  other  lines, 

RUN  Used  to  run  a  program  only  after  LOAD  or 
EDIT. 

REP  Used  for  repetitions  of  program  after  it  has 
been  run. 

NEW  Clears  out  the  old  program  and  accepts  a 
new  one  or  allows  user  to  start  writing  a 
program, 

STOP  Returns  control  to  Applesoft  . 

SAVE  Saves  progiam  to  disk. 


o  - 


PILOT  HINTS  &  SUGGESTIONS 


A.  If  you  are  in  the  EDIT  mode,  you  can  LIST  by  using 
that  command  after  a  line  number.  You  can  also  get  out 
of  the  EDIT  mode  by  typing  REQ  after  a  line  number. 
This  will  get  you  back  to  “REQUEST”, 

B.  Put  subroutines  at  the  end  of  your  program  for 
faster  execution.  The  interpreter  looks  for  jump  labels 
from  the  end  of  your  program  up. 

C.  After  a  variable  you  can  only  have  a  space,  a  period, 
or  an  apostrophe. 

D.  When  a  RUN  is  typed,  the  interpreter  separates  your 
program  into  two  arrays,  one  for  commands  (T/,  A/, 
etc,),  the  other  for  the  statements,  and  then  commences 
to  execute  the  program  one  line  at  a  time.  Setting  up  the 
arrays  after  loading  a  program  or  editing  takes  a  few 
seconds. 

Once  the  arrays  are  set,  the  program  can  be  rerun 
quickly.  That  is  why  REP  is  used.  However,  an  EDIT 
command  reassembles  the  commands  and  statements* 
Thus  a  RUN  is  necessary  to  set  up  the  arrays  after  an 
EDIT. 
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Round  3s  PASCAL 

Coolly  Counters 

BY  DAVID  A.  MUIMDIE 


Round  7  of  this  discussion  began  in  People's  Computers, 
Jan- Feb  1978  with  David's  original  article. *  Round  2  was  in 
the  May -June  1979  issue  of  Recreational  Computing,  David 
returns  this  issue  with  Round  3. 

Along  the  way  there  have  been  many  preliminary  skirmishes 
and  feigned  battles.  David  addresses  some  of  those  in  the 
article  also.  I  can't  wait  for  Rounds  It  gets  better  each  time! 

-  RZ 


My  primary  interest  in  promoting  PASCAL  was  to  hasten 
the  day  when  I  would  have  a  PASCAL  machine  in  my  kitch¬ 
en,  So,  the  day  I  placed  my  order  for  a  PASCAL  Microengine 
I  vowed  to  withdraw  from  the  ongoing  debate  over  PASCAL'S 
merits  compared  to  those  of  BASIC,  However,  the  “BASIC 
backlash"  in  your  pages  has  prompted  me  to  break  that  vow, 
and  to  offer  the  following  observations* 

THE  DRAGON  IS  DROPPED 

Mr;  Albrecht's  comment  in  the  RC  March -April  issue  is 
little  more  than  a  potshot.  He  claims  that  the  following 
BASIC  program  segment,  cited  by  PASCAL  supporter  Joe 
Felsenstein,  is  an  "unreal"  example: 


100  IF  X  =  3  THEN  500 
200  LET  Y  =  y  -  1 
300  LET  Z  =  I  -  1 
bOO  GO  TO  700 
500  LET  Y  =  y  +  I 
600  LET  Z  =  2+1 

700  RE h 


Mr,  Albrecht  asks  rhetorically,  “Who  would  write  a  BASIC 
program  like  that?"  The  answer,  of  course,  is:  "Lots  of  people, 
including  Mr,  Albrecht  himself  I"  See  for  example,  the  program 
on  page  1 1 1  of  his  self -teaching  guide,  BASIC  (second  edition, 
John  Wiley  and  Sons,  1978), 

Mr,  Albrecht  suggests  the  following  alternative  code: 

too  IF  x  -  3  THEN  V-  Y  +  1;  Z  «  z  +  1 
HO  IF  X<>3  THEN  Y  =  Y  *  T :  Z  *=  Z  -  ) 

it  is  hard  to  tell  exactly  what  Mr,  Albrecht's  point  is*  If  it 
is  simply  that  his  proposed  alternative  is  shorter,  then  we 
must  give  him  the  point*  However,  if  he  is  suggesting  that 
BASIC's  IF -statement  is  as  good  as  or  better  than  PASCAL'S, 
then  I  must  disagree: 
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•  One  must  assume  that  programmers  will  often  need  to  have 
several  lines  of  code  whose  execution  is  dependent  on  the 
value  of  a  boolean  expression.  What  would  Mr,  Albrecht 
recommend  then?  Twenty -five  lines  of  code  beginning  "IF 
X  =  3  THEN"  followed  by  twenty-five  more  beginning  "IF 
X<>3  THEN"?  PASCAL  simply  brackets  these  statements 
with  "begin"  and  "end"  and  is  done  with  it* 

•  The  program  fragment  proposed  by  Mr,  Albrecht  will  be 
interpreted  differently  by  different  versions  of  BASIC*  Some 
versions  will  treat  "IF  X  =  3  THEN  Y  =  Y  +  1"  as  a  complete 
statement,  and  proceed  to  execute  "Z  =  Z+1"  no  matter 
what  the  value  of  X  is*  Would  Mr.  Albrecht  suggest  the  follow¬ 
ing  code  for  users  of  such  BASICs? 

100  IF  X  =  3  THEN  Y  =  Y  +  T ;  IF  X  =  3  THEN  Z  ~  Z  +  1 
110  IF  X<  >3  THEN  Y  *  Y  -  It  IF  X<>3  THEN  Z  =  Z  -  1 

Is  this  elegant  programming?  This  problem  of  ambiguous 
IF -statements  is  just  one  of  many  which  confront  those  trying 
to  spruce  up  a  line -oriented  language  with  constructs  which 
are  essentially  statement -oriented*  Whatever  minor  standard¬ 
isation  problems  PASCAL  may  have,  at  least  its  control 
structures  are  clearly  defined. 

•  Many  versions  of  BASIC  will  not  accept  Mr,  Albrecht's 
program  segment  at  all— namely,  those  which  do  not  allow 
multiple  statements  on  one  line.  In  short,  what  is  the  only 
version  of  this  program  fragment  which  will  execute  in  all 
BASICs  with  the  desired  result?  The  original  version  given  by 
Mr .  Felsenstein,  Anyone  writing  BASIC  programs  for  general 
use  would  be  well  advised  to  adopt  it.  I  contend  that  it  is  not 
an  "unreal"  example  at  all* 

While  we  are  on  the  subject  of  BASIC's  IF -statements,  I  may 
as  well  confess  that  I  have  been  doing  some  BASIC  program¬ 
ming  on  an  OSI  machine  recently*  The  lack  of  an  else-clause 
has  warped  my  mind  to  the  point  that  if  I  had  to  give  a  spon¬ 
taneous  BASIC  translation  of  the  PASCAL  code,  I  would 
write: 

100  Y  *  Y  *  1  iZ  *  Z  +  l!  IF  x<>3  THEN  Y  =  Y  -  111  -  2  -  2 

This  is  atrocious,  but  I  have  caught  myself  writing  analogous 
code  over  and  over.  Languages  shouldn't  encourage  this  sort 
of  thing* 

DAY  IS  DAZZLED 

Jim  Day,  in  a  letter  published  in  your  May- June  1979  issue, 
proposed  yet  another  version  of  the  program  fragment: 

100  5  -  2  *  (x  *  3)  -  1:Y»Y+S:Z=Z+S 

This  proposal  prompts  the  following  remarks: 

•  Once  again  the  problem  of  BASIC's  nonstandardization 
rears  its  ugly  head.  The  designers  of  OSI's  BASIC  decided, 
for  reasons  known  only  to  themselves,  that  falsity  is  better 


than  truth,  so  that  truth  is  given  the  value  -1  and  falsity  the 
value  0*  This  means  that  Mr.  Day's  expression  "2  •  [X  “  3) 
—  1"  will  evaluate  to  —3  when  X  equals  3,  which  is  not  at 
all  what  Mr.  Day  had  in  mind.  His  solution  is  not  transport¬ 
able* 

•  Mr,  Day  implies  by  omission  that  the  same  technique  could 
not  be  used  in  PASCAL*  This  of  course  is  not  true—  we  could 
write  in  PASCAL: 

s:  =2  *  ord  (x  *3)  -  1;  y;  *  y  +  s;  zi  «  z  +  s; 

In  my  mind,  the  distinct  symbol  for  the  assignment  operator 
enhances  legibility,  and  the  explicit  presence  of  the  "ord" 
function  in  the  PASCAL  program  forces  the  programmer  to 
be  clear  that  what  he  is  doing  is  transforming  a  boolean 
value  into  an  integer  one— this  is  disguised  in  the  BASIC 
version.  Furthermore,  PASCAL  is  committed  to  the  idea  that 
truth  is  greater  than  falsity;  ord  (true)  is  always  equal  to  1 
and  ord  (false)  is  always  equal  to  0,  so  that  the  PASCAL 
segment  above  will  run  on  every  implementation  I  know  of* 

•  Mr,  Day's  proposal  is  just  a  programming  trick  which  happens 
to  work  in  the  case  at  hand,  but  it  is  not  capable  of  general 
application  and  utterly  fails  to  address  itself  to  the  issue  of 
the  else-clause,  which  was  obviously  what  Mr*  Feisenstein 
had  in  mind.  How  would  Mr*  Day  handle  this? 

If  X  *  3  then  theca;  =  sin(x)  else  beta:  *  cos(/) 


SEPT -OCT  1979  29 


RAVN -JENSEN  IS  RETIRED 


•  t  turn  now  to  the  article  entitled  "Round  2"  in  your  May* 
June  1979  issue.  I  feel  personally  involved  here,  since  the 
PASCAL  program  you  reprinted  was  one  1  wrote  nearly  two 
years  ago.  Looking  back  at  it  now,  I  regret  that  I  let  my  obses¬ 
sion  with  compactness  override  my  concern  for  legibility, 
and  wish  I  had  fed  it  through  a  pretty  printer  before  its  submis¬ 
sion.  But  that  is  neither  here  nor  there.  I  would  like  to  make 
the  following  comments  on  "Round  2": 

•  To  call  the  language  which  Mr,  Ravn -Jen  sen  uses  "BASIC" 
is  pure  sophistry,  Gorge  Christensen  was  at  least  more  candid 
in  his  article  in  your  Jan- Feb  1979  issue,  where  he  baptized 
the  language  "COMAL",  which  sounds  more  like  "PASCAL" 
than  like  "BASIC".  Mr,  Ravn -Jensen's  program  would  no 
more  run  through  a  TRS-80,  an  APPLE,  a  PET  or  an  OSI 
interpreter  (to  name  only  a  few)  than  my  own  program  would. 

•  Imitation  is  the  sincerest  form  of  flattery,  and  given  the 
superiority  of  PASCAL,  it  would  have  been  surprising  if  some¬ 
one  had  not  tried  to  incorporate  some  of  its  features  into  a 
new  BASIC  hybrid.  But  the  fundamental  question  is,  "Why 
bother?"  is  there  anything  in  COMAL  which  Mr.  Ravn- 
Jensen  can  honestly  claim  is  superior  to  PASCAL'S  equivalent? 

I  think  not.  COMAL  supporters  will  hasten  to  point  out  that 
existing  BASIC  programs  will  run  on  a  COMAL  interpreter, 
but  is  that  really  important?  Every  PASCAL  system  that  I 
know  of  (the  UCSD  system,  for  example)  comes  with  a 
BASIC  compiler  or  interpreter  to  take  care  of  existing  BASIC 
programs:  so  much  for  that  argument.  As  for  rewriting  old 
programs,  I  claim  that  it  would  be  no  easier  to  convert  them 
into  elegant  COMAL  than  it  would  be  to  translate  them  into 
PASCAL, 

To  be  sure,  any  PASCAL  supporter  must  see  the  spread  of 
PASCAL'S  features  into  other  languages  as  a  net  gain  for 
progamming  languages  as  a  whole.  Given  the  choice  between 
COMAL  and  BASIC,  J  would  obviously  prefer  the  former— 
it  has  copped  enough  from  PASCAL  to  be  almost  tolerable  as 
a  beginning  programming  language.  But  that  is  an  argument 
in  favor  of  PASCAL,  not  against  it. 

•  Mr.  Ravn -Jensen  violated  one  of  the  ground  rules  of  my 
PASCAL/BASJC  comparison:  the  omission  of  comments. 
My  intention  was  to  demonstrate  that  PASCAL  is  inherently 
more  self -documenting  than  BASIC,  and  his  program's  REM 
statements  make  the  comparison  more  difficult. 


•  Mr,  Ravn- Jensen  disingenuously  remarks  that  the  procedure 
TALLY  is  "not  needed."  I  suspect  he  had  an  even  stronger 
motive  for  leaving  it  out:  it  is  impossible  to  write  such  a 
procedure  in  COMAL  (or  in  BASIC).  This  was  precisely  my 
point  in  including  the  procedure  to  begin  with,  in  spite  of  the 
fact  that  it  is  only  of  marginal  value  in  and  of  itself.  One  must 
assume  that  programmers  will  at  some  point  have  to  write 
programs  more  complex  than  the  simple  Mastermind  program 
used  for  illustration,  and  then  the  lack  of  parameter-passing 
in  BASIC  becomes  absolutely  crippling.  Suppose  one  wants 
to  write  a  fifty -line  subroutine  which  operates  on  six  dif¬ 
ferent  variables.  To  do  this  in  BASIC,  one  must  first  of  all 
set  aside  six  global  variables  (for  example,  u,  v,  w,  x,  y,  and  z) 
which  are  not  used  by  the  rest  of  the  program,  and  then  write 
the  following  code: 

too  U  -  A:V  -  B:U  =  C:X  =  D: Y  -  E:Z  =  f:G05UB  5000 

110  A  =  IhB  -  ViC  =  WrD  =  X:E  ^  Y;F  =  Z 

t2G  U  =  G:V  =  H:W  =  I :X  =  J  rY  =  K:Z  «  L:G0SUB  5000 

130  G  -  UrH  -  V: I  =  W:J  e  XiK  =  Y:L  =  1 

Compare  this  to  the  same  thing  in  PASCAL: 

process  (a,  b,  c,  d,  ef  f ) ;  process  (g,  h.t  I,  j,  k,  0; 

I  suppose  this  strikes  me  as  BASIC's  single  greatest  weakness. 

•  One  must  not  lose  sight  of  the  fact  that  my  Mastermind  pro¬ 
gram  deliberately  avoided  using  any  of  PASCAL'S  more 
advanced  data  structuring  facilities -records,  pointers,  and 
files.  When  someone  comes  out  with  an  8K  COMAL- IN -ROM 
machine  for  $600  which  includes  those  features,  I  will  be  the 
first  on  my  block  to  order  one.  Until  then.  I'll  stick  with  my 
Microengine. 

ROUND  3  IS  OVER 

There  is  more  that  could  be  said,  but  I  hope  that  I  have  at 
least  shown  that  it  is  not  fair  to  accuse  PASCAL  supporters 
of  deliberately  choosing  inferior  dialects  of  BASIC  for  their 
comparisons.  Most  PASCAL  lovers  are  deeply  committed  to 
portability  and  standardization.  It  is  not  our  fault  that  BASIC 
dialects  have  proliferated  so  wildly  that  there  exists  no  stan¬ 
dard  BASIC  to  compare  with  PASCAL. 


30 


RECREATIONAL  COMPUTING 


I 


j 


Of 

Life 


BY  ,G. E/FLEMING 


A  previous  issue  of  RC  (May -June  1979) 
featured  an  API  version  of  the  Game  of 
life .  George  Fleming,  a  doctor  from 
Hollidaysburg,  PA  now  brings  you 
*  the  game  for  your  TRS-80.  You  can 
refer  to  the  previous  article  for  sugges¬ 
tions  on  forms”  to  try  with  this 
program,  #  .♦  C  /  *  \  t 

George  has  some  other  interesting  pro¬ 
grams  including  a  Star  Trek  for  the  TRS- 
80 ,  If  you  are  interested,  write  him  at 
this  address:  Oak  Knoll ,  Hollidaysburg,  7 
PA  16648.  Dr,  Fleming  already  has 

1  .  ,  .  '  *  ,  *  his  kids  composing  letters  to  us  on  the  '  \ 

.  ,  .  computer.  Watch  out  Milan  (Dr.  Chepko)!  .  *  „ 

16  REH  1  There's  another  AMA  family  into  the  *  +  \ 

of  life  ■  *  *  computer  game.  -  RZ 

DEVELOPED  BV  6  £  FLEMING  .  ■  *  ' 

50  as  aEBR  70  DEFINT  A.  I JXX,  Y:D*=5TRINGtf$4,  -  ■>  DIM  XC285)-  Y(265) 

90  PRINT  PRlWTSm  "DC  YOU  WANT  INSTRUCTIONS  FOR"  PRINT1*  CONWAY'S  GAME  OF  LIFE".  INPUT  ft*  IF  fi$="YES"  1090  ELSE  CL5 

190  PRINTS  INPUT  X,Y  AS  POSISTION  0,0  IS  M  CENTER  OF  THE  SCREEN  THE  LIMITS  OF  INPUT  ARE  +21  TO  -21  99,93  TO  Ef*  IWf 
ENTER"-  INPUT  ft*  PRINTS  0,D$;C* 

110  PRINTS  0*;Df;  PRINTS,  "X=%  Y=B,  INPUT  X,  V  *  .  .  ‘  ’ 

120  IFX=99WY=33THEN206  ELSEIFfteS(X)>2lORflBSCY)>21THEN100  -  ‘  '  / 

130  X=2*X+64  V=Y+23  ■ 

140  IF  POINTCLY)  PRINTWi  "YOU  flLLREiRDY  USED  THAT  LOCATION  PLEASE  TRY  AGAIN 
158  IF  NOT  POINT <JC  Y>  SET0C  Y)  :SET(X-L  Y)  T0TAL=T8TAL+1  X(T0TflL>=X  V<T0TflL)=V 
160  GOTO110 

m  as  if  t8tal>maxthen  nr^total 

210  PRINTS  PRINT  U5INGMGEN  tffVGEfo  GEN=GENH .  PRINTS  PRINT  USING'POP 
BIRTHS  PRINT019Z  PRINT  USING-DEATH  ###"-  DEATH,  DEATHS. PRINTS,  PRINT  USINGS 
220  IF  T0TflL=8  FOR  G=iTO508 :  NEXT  OS  PRINT  CHR*<23)  PRINTS  "POPULATION  0,  END", " 

238  XUP^ttJ.XD^XQLYl^^ 

248  FOR  J=i  TO  T0TAL  IFX<J»W  THEN  XIF=X<  J) 

241  IFXCJKXDN  THEN  fl)W=XU> 

242  TF  Y(J»YUP  THEN  YUP^Y(J) 

242  IF  YCJXYDN  THEN  YDW=VCJ> 

244  f€XT 

256  IF  XDfK=3  OR  XUP}=124  OR  YDN<*i  OR  YUP;=46  THEN  a5:  PRINT  CH»(22)  PRINT0128XLIMITS  EX CEDED  -  GAME  W ER"  PRINT8266,  "GENERATION" 

gen  mmrmrm  w  has wmm 

255  FOR  J=1  TO  TflTflL  SET(XCJ), V<J)):SEFiX(JM* V(J>>  NEXT  T«TftL=0 

268  FOR  X=XDN-2  TO  XUP+2  STEP  2  FOR  Y*VDfH  TO  YUP+1  IF  POINTS  Y)  THEN  RESETOCV)  ELSE  SETOCV) 

278  ftl*Fi]INT<X-2#  Y-l>  R2=PUINTf^Y-l)  A2=P0lNT<X+2>  Y-l)  A4=P0INKX-2,  Y>  fl5=PCINT(X,  Y>  fl£=P0INTCX+2,  V)  fi?=P0lNT<X-2,  Y+i>  ft&=P0IMT(X*  Y 
+1)  A3=P0lNT(X+2,  Y+l) 

288  IFffl5=0)  AND  (fll+R2+A2+A4+ft6+ft?^8+fl9=-2>  TICN  T0TRL-T0TRL+1 :  X(  T6TAD-X ; Y(T8TflL)=Y :  GGTO220 

230  IF(R5*8>  RND  (fiH-ft2+A3+fM+A6+fi7+ft8+^2)  THENT0TRL=T6TfiL+i . X(T@TAL )=X . YCT0TAL )=Y  GOTQ220 

290  !FCft5*“i>  AND  (Al*fi2+A2+H4+A6+ft7+ft8-H^-2)  im  T0TAL=T0TAL+1  XCT0TflL)=X :  V( T0TRL>=Y:  SIRTH=BIRTH+1 :  GOTO220 

310  IF  NOT  POINTOL  Y)  DEATH4CATHH 

220  IF  T0TAL=250  CLS;  PRINT  CH?*(23)  PRINT $£$>  "PORlfiTlON  LIMIT  EXCEDED*. "  GEN  "GEN-  - "  POP.  -  256*  END 
230  IF  PGlNtaV)  T>£N  RESET  (Xi  Y)  ELSE  SETCJCY) 

348  IEXT  Y,X.GOTO260 

1908  OS  PRINT  CHRtC23)  .PRINT0O4j  "THE  RULES  OF  THE  GAI€  ARE  IF  A  CELL  HAS  2  OR  THREE  fCIGHGORS  IT  STAYS  ALIVE  OTHER  WISE  IT  DIES.  1 
F  AN  EMPTY  CELL  NFlS  EXACTLY  3  NEIGF€0RS  IT  IS  BORN.  ALL  THE  BIRTHS  AND  DEATHS  OCCUR  AT  THE  S ft£  TIME.  ENTER  FOR  AN  DtfWLL  ", 

1010  INPUT  A*  T0TflL=?  FOR  MTQ  7: READ  X(D:READ  VCD  NEXT  DATA  64, 23* 64, 24, 64, 25, 66, 23, 68, 23, 68, 24, 68,25 :G0TO293 


FORMTO506:NEX7  ^ 


«*"-T0Ta,  PRINTS  PRINT  USING"BIRTH  l##“iBIRTH; 
GD£RATrOH"(BL  *  MftX.  POP  HftS"HRX  Ef* 
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BY  HERB  MOORE 

Who  is  Herb  Moore ?  Perhaps  you  have  seen  this  query  in  some 
of  the  recent  FuturePIay™  sections  of  RC.  Well,  Herb  is 
a  musician  and  beginning  computer  person .  He  has  become 
interested  in  computers  since  some  manufacturers  have  begun 
including  a  sound  chip  with  the  new  machines. 

Herb  is  a  student  and  innovator  in  an  emerging  field  of  music 
call  “scrapophony.  **  Scmpophony  involves  the  use  of  found 
materials  to  create  musical  instruments.  Some  of  Herb  *s  re¬ 
cent  compositions  { available  on  cassette  tape )  are  performed 
on  “scrapophones  ”  that  he  has  constructed.  You  will  no  doubt 
4thear”  more  from  Herb  in  coming  issues.  The  way  computers 
are  going,  we  believe  that  Herb  may  turn  out  to  be  our  first 
'"music  editor  "  -RZ 

This  is  the  first  in  a  series  of  articles  describing  some  of  the 
color  graphics  and  sound  capabilities  of  the  new  ATARI 
computers.  The  articles,  if  read  in  sequence,  should  be  easily 
understood  by  people  who  have  had  little  previous  experience 
in  BASIC  programming.  The  first  article  covers  the  color 
graphics  available  on  the  machines.  The  second  will  describe 
the  sound  capabilities,  and  in  later  articles  we  will  show  how 
the  color  graphics  and  sound  can  be  combined,  giving  you  the 
opportunity  to  “see  what  you  hear  and  hear  what  you  see.” 


Section*  of  this  article  were  excerpted  from  the  book  ATARI  BASIC 
by  Bob  Albrecht,  LeRoy  Finkel,  end  JereJd  R.  Brown,  ©1979,  by 
Wiley  &  Sons,  Jnc.  (A  book  worth  having  if  you  have  fust  purchased 
an  AT AR I  computer  or  are  thinking  about  ItJ 


But  first,  let’s  “see  what  you  can  see!”  The  ATARI  machine 
allows  you  to: 

•  change  the  background  color  of  the  video  screen  to  any 
one  of  16  colors; 

•  draw  designs  on  the  video  screen  using  any  one  of  16 
colors; 

•  print  text  along  with  your  pictures  in  a  special  text 
"window1; 

•  change  the  color  of  the  text  window  to  any  one  of  16 
colors; 

•  change  the  number  of  plotting  positions  so  that  pictures 
can  be  drawn  in  more  detail. 

ATARI  GRAPHICS  MODES 

The  ATARI  machine  also  has  8  different  graphics  modes, 
numbered  0-7.  When  the  machine  is  turned  on,  the  screen 
mode  is  automatically  set  to  GRAPHICS  0.  The  different 
graphics  modes  allow  you  to  put  finer  and  finer  detail  on  the 
screen , 

In  order  to  select  a  different  mode,  you  would  type  in  either 
GRAPHICS  or  GR.  and  the  number  of  the  mode  you  wanted 
to  use.  For  example,  typing  in  the  command: 

GRAPHICS  3 
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would  set  the  machine  to  graphics  mode  3.  Typing  in  the 
command: 

GR,  3  ^(bejsu^ 

would  also  set  the  machine  to  graphics  mode  3.  Here’s  what 
happens  to  the  screen  when  we  enter  this  command.  It  causes 
the  machine  to: 

a)  Blank  the  fop  portion  of  the  screen,  and 

b)  Color  the  bottom  portion  purple  (this  color  may  vary  with 
the  TV  set  you  use), 

Graphics  mode  3  provides  a  grid  of  39  columns  by  20  rows 
for  plotting  points.  This  is  the  blank  area  at  the  top  of  the 
screen.  The  purple  area  at  the  bottom  of  the  screen  provides 
four  lines  in  which  text  may  be  printed.  To  return  to  the 
text  mode  you  type: 


In  order  to  run  the  program,  you  type  the  command  RUN 
and  press  the  ENTER  key.  This  program,  when  run,  would 
look  like  this  at  the  bottom  of  the  screen: 

LINE  ) 

LINE  2 
LINE  3 

line  a  m 

_ 

Here  is  a  table  of  the  graphic  screen  modes  3  through  7,  show¬ 
ing  the  number  of  graphics  positions  for  each  mode, 

MODE  NUMBER  OF  G  RAPHIC  POSITIONS  TEXT 


NO. 

COLUMNS 

ROWS 

WINDOW 

3 

39 

20 

4  lines 

4,5 

79 

40 

4  lines 

6,7 

158 

80 

4  lines 

GRAPHICS  0  and  press  the  RETURN  key 

Let’s  write  a  simple  program  which  puts  labels  on  the  four 
lines  in  the  text  window. 

First  type  GRAPHICS  0  to  return  to  the  text  mode.  Then 
type  NEW  (this  clears  the  memory  of  the  machine  of  any 
other  in  formation  that  might  become  confused  with  your 
new  program),  Now  type  in  the  following  program: 

10  GRAPHICS  3 
20  PRINT  "LINE  1M 
30  PRINT  "LINE  2" 

A0  PRINT  "LINE  3" 

50  PRINT  "LINE  A"; 

60  GOTO  6g 

Here’s  what  you  told  the  machine  to  do: 


From  this  table  we  can  see  that  modes  6  and  7  have  158  X  80, 
or  12,640  individual  points.  Modes  4  and  5  have  79  X  40,  or 
3,160  points.  Mode  3  Iras  39  X  20,  or  780  points.  Thus,  for 
example,  graphics  modes  6  and  7  allow  you  to  draw  with 
smaller  points,  enabling  greater  detail.  If  you  wanted  to 
cover  larger  portions  of  the  screen  with  less  programming, 
then  you  would  probably  want  to  use  graphics  mode  3. 

PLOT  AND  COLOR 

The  PLOT  statement  is  used  for  graphics  on  the  ATARI 
computer.  To  plot  a  point,  both  the  column  and  the  row  must 
be  given  in  the  PLOT  statement.  The  plot  positions  are  num¬ 
bered  from  the  upper -left  comer  of  the  screen  starting  with 
0,0.  For  example,  a  plot  statement  of: 

30  PLOT  2,5 

would  plot  the  following  point. 


a)  The  line  numbers  10,  20,  etc,,  indicate  that  you  are  enter¬ 
ing  a  program.  If  you  don’t  use  line  numbers  the  machine 
will  see  the  information  as  DIRECT  COMMANDS  and 
execute  them  immediately. 

b)  The  PRINT  statements  in  lines  20  to  50  tell  the  machine 
to  print  what  is  between  the  quotation  marks, 

c)  Tire  semicolon  at  the  end  of  line  50  will  cause  the  cursor 
to  remain  at  the  end  of  the  message  when  the  program  is 
run. 

d)  Line  60  tells  the  machine  to  wait  while  the  information  is 
displayed  on  the  screen. 
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In  order  to  see  the  point,  we  need  to  put  a  color  statement 
in  the  program  for  one  of  the  4  available  color  registers, 
numbered  0— 3.  For  example: 

COLOR  1 

Using  the  information  given  so  far,  you  can  write  the  following 
short  program: 

10  GR.  3 
20  COLOR  1 
30  PLOT  2,5 

hO  PRINT  "THIS  IS  PLOT  POSITION  2,5N 
The  program,  when  run  would  look  like  this  on  the  screen. 

/ - A 


THIS  IS  PLOT  POSITION  2,5 


The  instruction  in  line  30  tells  the  machine  to  give  the  letter 
1  a  value  from  0  to  19,  beginning  with  0.  Line  40  tells  the 
machine  to  plot  a  point  for  the  given  value  of  1.  Line  SO 
tells  the  machine  to  go  to  the  next  value  of  I.  So  the  machine 
plots  0, 0  then  1 , 1  then  2, 2  and  so  on, 

DRAWTO  STATEMENT 

The  easiest  way  to  plot  a  straight  line  is  to  use  the  DRAWTO 
statement  along  with  the  PLOT  statement.  The  PLOT  state¬ 
ment  tells  the  computer  where  to  start  the  line,  and  the 
DRAWTO  statement  gives  the  position  where  the  Line  will 
end.  The  line  is  drawn  from  the  PLOT  position  to  the  DRAW¬ 
TO  position.  For  example,  if  we  enter  and  run  the  following 
program; 


it  plots  the  point  on  the  screen  in  the  graphic  area.  It  prints  in 
the  text  window  the  information  that  is  between  the  quota¬ 
tion  marks  in  the  PRINT  statement. 

If  we  wanted  to  plot  several  points,  we  could  include  several 
plot  statements  on  one  line  by  using  a  colon  to  separate  the 
statements.  First,  type  GRAPHICS  0  to  return  to  the  text 
mode,  then  type  NEW  to  begin  a  new  program.  Then  enter 
and  run  the  following  program: 

10  GR.  6 
20  COLOR  1 
30  PLOT  0,0:  PLOT  1 
40  PLOT  0,79:  PLOT 

If  we  wanted  to  draw  a  straight  line  we  wouldn’t  want  to  make 
a  PLOT  statement  for  every  point  of  the  line.  Here’s  a  couple 
of  programming  time  savers  we  can  use.  The  following  pro¬ 
gram  makes  use  of  the  FOR -NEXT  loop  to  plot  points.  Type 
NEW,  enter  and  run  the  following: 


10  GR.  4 
20  COLOR  1 
30  PLOT  0,0 
40  DRAWTO  78,39 

The  screen  would  show: 


SET  COLOR  STATEMENT 


10  GRAPHICS  3 
20  COLOR  I 
30  FOR  1=0  TO  19 
40  PLOT  1,1 
50  NEXT  I 

When  the  program  is  run,  the  screen  looks  like  tills: 


The  statement  used  to  change  color  points  on  the  screen  is: 
SET  COLOR  0,C 

The  variable  C,  can  be  any  integer  from  0  through  15.  Each 
value  for  C  will  give  us  a  different  color  for  the  plotted  points. 
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A  complete  color  graphics  program  must  have  the  three 
statements:  GRAPHICS,  COLOR,  and  SETCOLOR.  Of 
course,  you  may  also  plot  some  points.  For  example,  type 
NEW,  enter  and  run  the  following: 

10  GR.  3 
20  COLOR  1 
30  SETCOLOR  0,0 
40  PLOT  0,3 
50  DRAWTO  38,3 

60  PRINT  "WHAT  COLOR  DO  YOU  SEE?" 

A  long  grey  color  bar  (color  may  vary  for  your  TV)  appears 
in  the  top  portion  of  the  screen,  and  the  statement  WHAT 
COLOR  DO  YOU  SEE?  appears  at  the  bottom  of  the  screen. 
A  few  changes  and  additions  converts  this  program  to  show 
each  of  the  16  colors  available.  The  colors  are  changed  by  the 
values  of  the  variable  in  the  SETCOLOR  statement  in  line 
30.  If  we  enter  and  run  the  following  program; 

10  GR.  3 
20  COLOR  1 
25  FOR  N  =  0  TO  15 
30  SETCOLOR  0 ,N 
40  PLOT  0,3 
50  DRAWTO  38,3 

60  PRINT:  PRINT:  PRINT:  PRINT  N 
70  FOR  W  =  1  TO  500:  NEXT  W 
80  NEXT  N 

a  bar  appears  at  the  top  of  the  screen,  disappears  and  then 
reappears  in  a  different  color,  for  the  16  different  colors 
available  on  the  ATARI  computer. 

If  we  revise  line  30  in  this  program  to  read: 

30  SETCOLOR  2 ,N 

and  run  the  program,  the  color  bar  remains  gold  throughout 
the  run,  but  the  color  of  the  text  window  changes  to  each  of 
the  1 6  colors. 

If  we  make  one  last  change  in  line  30  of  the  program: 

30  SETCOLOR  4,N 

and  run  the  program,  the  background  of  the  graphics  area 
changes  through  the  16  colors,  the  bar  remains  gold,  and  the 
text  window  turns  dark  and  remains  dark. 

So,  for  the  statement  SETCOLOR  A,  N: 

•  When  A  is  set  to  0,  the  colors  in  the  plotted  bar  vary. 

•  When  A  is  set  to  2,  the  colors  in  the  text  window  vary. 

•  When  A  is  set  to  4,  the  colors  in  the  background  of  the 
graphics  area  vary. 

In  the  same  statement  the  variable  N  allows  for  the  selection 
of  one  of  16  colors  (0- 15)  for  a  given  color  register. 


Here  is  a  table  of  the  16  colors  available: 

0  Grey 

1  Gold 

2  Orange 

3  Red 

4  Rink 

5  Purple 

6  Purple 

7  Blue 

8  Blue 

9  Blue 

10  Blue 

1 1  Green 
■  12  Green 

1 3  Green 
34  Yellow  Green 
15  Gold  / 

These  effects  can  all  be  shown  by  entering  and  running  the 
following  program. 

10  GR.  3 
20  COLOR  1 

30  PRINT  "WATCH  MY  COLORS  CHANGE!  !  !" 
40  FOR  M  =  0  TO  4  STEP  2 
50  FOR  N  =  0  TO  15 
60  SETCOLOR  M,N 

70  PLOT  5,5:  DRAWTO  30,5 
80  FOR  W  =  1  TO  200:  NEXT  W 
90  NEXT  N 
100  NEXT  M 

When  this  program  is  run,  first  the  color  bar  varies  through  16 
colors,  then  the  text  window  varies  through  16  colors,  and 
finally  the  background  of  the  graphics  area  varies  through 
16  colors.  The  command  STEP  2  in  line  40  tells  the  machine 
to  count  by  2’s.  So,  it  counts  0, 2, 4, 


MORE  GRAPHICS 

In  order  to  see  what  happens  as  you  vary  the  graphics  mode, 
enter  the  following  program. 

10  GR.  3 

20  COLOR  1 

30  SETCOLOR  4,1 

40  PLOT  5,5:  DRAWTO  7,5 

50  PLOT  6,6:  DRAWTO  6,10 

60  DRAWTO  k, 15 

70  PLOT  6,10:  DRAWTO  8,15 

80  PLOT  5,7:  DRAWTO  3,9 

90  PLOT  7,7:  DRAWTO  9,9 

100  PRINT  "WHAT  A  FUNNY  MAN!  !  !" 
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When  run,  this  program  causes  a  figure,  that  looks  like  this: 


to  appear  in  the  upper  left  hand  portion  of  the  screen.  If  you 
make  the  following  changes  and  additions  to  the  program  to 
alter  the  screen  modes,  you  can  change  the  size  of  the  “drawn” 
figure: 

5  FOR  A  -  7  TO  3  STEP-2 
10  GRAPHICS  A 

93  FOR  W  -  1  TO  200:  NEXT  W 
95  NEXT  A 

When  this  program  is  run,  the  figure  appears  to  move  from 
the  upper  left  comer,  and  his  size  increases.  The  command 
STEP  -2  causes  the  program  to  change  the  graphics  mode  from 
7  (many  small  divisions),  to  graphics  mode  5  (fewer,  slightly 
larger  divisions),  to  graphics  mode  3  (fewer,  and  even  larger 
divisions).  This  result  is  an  example  of  something  that  was 
pointed  out  earlier— in  graphics  mode  7,  it  is  possible  to  draw 
in  greater  detail  since  you  use  smaller  points;  in  graphics 
mode  3 ,  it  is  possible  to  cover  larger  areas  of  the  screen  with 
fewer  plotted  points. 


70  DRAWTO  X-2,Y-2 

80  PLOT  X-AtY -4:  DRAWTO  X+4.Y'1* 

90  DRAWTO  X+4,Y+4:  DRAWTO  X-k,Y+k 
100  DRAWTO  X-4,Y-*i 

This  should  cause  the  machine  to  draw  two  squares,  one  inside 
of  the  other. 


If  we  make  changes,  the  size  of  the  square  and  the  width 
of  the  lines  get  larger  each  time. 

10  GRAPH fCS  5 
35  X=it0 :  Y=2*t, 

10  GRAPHICS  3 
35  X=20 :  Y-12. 

You  can  create  an  interesting  visual  effect  by  combining  die 
last  three  graphics  modes  in  one  program.  The  resulting  pro¬ 
gram  causes  two  squares  to  appear  in  the  center  of  the  screen, 
one  inside  of  the  other.  They  should  then  become  increasingly 
larger  with  increasingly  thicker  lines  until  the  program  lias 
gone  through  the  three  different  modes.  Then  it  returns  to 
the  smaller  squares  with  smaller  lines  and  begins  to  go  through 
the  cycle  again.  This  visual  pattern  will  continue  on  the  screen 
until  you  stop  the  program  by  pressing  the  BREAK  key. 

This  should  give  the  reader  a  taste  of  some  of  the  color 
graphics  capabilities  of  the  ATARI  computer.  If  you  are 
fortunate  enough  to  have  an  ATARI  computer  already,  this 
material  will  help  you  begin  to  create  your  own  color  graphics 
effects.  Please  be  sure  to  let  us  know  of  any  interesting  dis¬ 
coveries  you  make  in  your  experiments  with  the  machine. 

Next  time:  Atari  Music 


Here  is  another  example  which  allows  you  to  examine  dif¬ 
ferent  sized  squares.  First,  enter  and  run  the  following  pro¬ 
gram. 


10  GRAPHICS  7 
20  COLOR  1 
30  SETC0L0R  0,15 
35  X  =  80:Y  -  A8 
40  PLOT  X , Y 

50  PLOT  X-2  ,Y-2 :  DRAWTO  X+2,  Y-2 
60  DRAWTO  X+2 ,  Y+2 :  DRAWTO  X-2,Y+2 
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SUBSCRIPTION  ORDER 

Please  send  me  a  one -year  subscription  to  Recreational 
Computing  magazine,  formerly  People's  Computers 
(published  bi-monthly)  for  $10. 

name  _  _ 


ADDRESS . 


CITY/STATE 


/ll?. 


□  Check  enclosed  □Bill  me  (U_S,  only} 

□  Renewal  (please  attach  mailing  label) 
Charge  my  card:  □Visa/Bankamericard  ClMastercharge 
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□  $14  One  Year 

Payment  must  be  in  $U5  drawn  on  a  US  Bank. 
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ard  to  get  a  good  assortment 
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ves  you  up  to  77  public-domain 
sette  tape,  just  $7.50  plus  5Gf? 

(CA  residents  add  45jif  tax— 

I  be  paid  in  U,S*  funds;  postage 


demonstration  Pascal  source  and  object  programs, 
translator,  Pascal  library,  and  three  run-time  systems. 
People’s  Pascal  runs  on  any  16K  Level  IT  TRS-80 
system,  $15  ($13.50  to  TR5-8Q  Computing  subscribers)*. 

TAPE  4  LEVEL  I: 

Election  returns,  business  percentage,  math  problems. 
Snoopy  graphic,  cash  register,  action  on  the  Enterprise, 
chase,  commander-in-chief,  Christmas  graphic,  ups  & 
downs  of  business,  deep  dark  secrets,  air  raid,  cross 
Index,  speech  recording  aid*  inventory  control,  check¬ 
book  balance,  sales  receipt  tally,  $7,50*. 

TAPE  5  LEVEL  II: 

Executive  tension-breaker,  Imepr inter  to  screen  or 
screen  to  linepr inter  exchange  utUity  program,  elec¬ 
tion  returns,  business  percentage*  check  balancing*  car 
pool  database,  RAM  memory  test*  mind  bender,  mort¬ 
gage  payments,  spelling  bee*  common  factor,  diet  plan¬ 
ning  H,  Star  Trek  ni*  Star  Wars*  klindon  capture,  knights, 
federal  income  tax,  chase*  tachitscope*  music  ("Yester¬ 
day11 )»  vacation  planner*  $7.50*. 

*AJGD  5 Off  postage,  handling:  CA  residents  add  tax. 

DEALER  USQUE  RIES  INVITED 


Information  Exchange  has  been 
public  domain  software  can  be 
o  the  public, 

xy  of  computer  magazines  can 
[  software,  at  no  more  cost  than 
■ustration.  CIE’s  experience  has 
for  the  77-program  Tape  2.  As- 
$7,50  selling  price  of  the  soft- 
(the  tape),  a  person  doing  the 
pig  4,33  cents  per  programming 
though  it  contains  fewer  pro¬ 
grams,  hail  oi  wiucn  came  from  the  San  Diego  TUG 
(user  group),  required  many  more  hours  preparation. 
People's  software  was  not  brought  out  to  compete 
with  commercial  software.  CIE  encourages  TRS-80 
users  to  market  programs.  The  nonprofit  organization 
gives  free  space  in  TRS-80  Bulletin,  as  well  as  offering 
low-cost  Bulletin  ads.  Good  commercial  software  is 
the  foundation  of  our  TRS-80  computing,  starting  with 
TRS-SO’s  Micro  Soft  Level  II  Basic  ROMs* 

With  introduction  of  People's  Software,  personal 
computing  can  be  made  much  more  rewarding  for 
everyone,  since  users  can  share  the  fruits  of  their 
labor —and  this  can  be  inexpensively  distributed,  in 
machine-readable  form  (no  $0,0433-per-hour  keyboard¬ 
ing!)* 

Digital  Equipment  Corp  (DEC)  computer  users,  by 
joining  DECUS,  have  been  able  to  share  programs  in¬ 
expensively.  Now  Radio  Shack  users  have  People’s 
Software* 
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to  appear  in  the  upper  left  hand  portic 
make  the  following  changes  and  addit 
alter  the  screen  modes,  you  can  change 
figure: 

5  FOR  A  =  7 
10  GRAPHICS 
93  FOR  W  =  1 
95  NEXT  A 


DR.  DOBB'S  JOURNAL 
P.O.  BOX  E 

1263  ELCAMINO  REAL 
MENLO  PARK,  CA  94025 


35  X*40:  Y=24. 


When  this  program  is  run,  the  figure  appears  to  move  from 
the  upper  left  comer,  and  his  size  increases.  The  command 
STEP -2  causes  the  program  to  change  the  graphics  mode  from 
7  (many  small  divisions),  to  graphics  mode  5  (fewer,  slightly 
larger  divisions),  to  graphics  mode  3  (fewer,  and  even  larger 
divisions).  This  result  is  an  example  of  something  that  was 
pointed  out  earlier— in  graphics  mode  7,  it  is  possible  to  draw 
in  greater  detail  since  you  use  smaller  points;  in  graphics 
mode  3,  it  is  possible  to  cover  larger  areas  of  the  screen  with 
fewer  plotted  points. 


Here  is  another  example  which  allows  you  to  examine  dif¬ 
ferent  sized  squares.  First,  enter  and  run  the  following  pro¬ 
gram. 

10  GRAPHICS  7 
20  COLOR  1 
30  SETC0L0R  0,15 
35  X  -  80 :Y  =  48 
40  PLOT  X ,Y 

50  PLOT  X-2.Y-2:  DRAWTO  X+2,  Y-2 
60  0RAWT0  X+2,  Y+2:  DRAWTO  X-2,Y+2 


10  GRAPHICS  3 
35  X=20 :  Y=1 2 , 

You  can  create  an  interesting  visual  effect  by  combining  the 
last  three  graphics  modes  in  one  program.  The  resulting  pro¬ 
gram  causes  two  squares  to  appeal  in  the  center  of  the  screen, 
one  inside  of  the  other.  They  should  then  become  increasingly 
larger  with  increasingly  tliicker  lines  until  the  program  has 
gone  through  the  three  different  modes.  Then  it  returns  to 
the  smaller  squares  with  smaller  lines  and  begins  to  go  through 
the  cycle  again.  This  visual  pattern  will  continue  on  the  screen 
until  you  stop  the  program  by  pressing  the  BREAK  key. 

Tliis  should  give  the  reader  a  taste  of  some  of  the  color 
graphics  capabilities  of  the  ATARI  computer.  If  you  are 
fortunate  enough  to  have  an  ATARI  computer  already,  this 
material  will  help  you  begin  to  create  your  own  color  graphics 
effects.  Please  be  sure  to  let  us  know  of  any  interesting  dis¬ 
coveries  you  make  in  your  experiments  with  the  machine. 


Next  time:  A  tari  Music 
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Announcing- 

--PEOPLE’S  SOFTWARE-- 
TAPE  1  Level-I:  24  business,  educational,  entertain¬ 
ment  programs,  $7,5G,  * 

TAPE  i  LEVEL  II 

Additional  10  programs,  adds  to  jcmrnal/ledger,  payroll, 
perpetual  calendar,  Star  Treks,  etc,,  touch  typing, 
mail  addressing,  tie-tac-toe,  grand  pri\  auto  race, 
state  capital  quiz*  hangman  spelling  game,  $7,50*. 

TAPE  2  LEVEL  H: 

Fully  documented  In  '‘Some  Common  Basic  Programs” 
by  Lon  Poole  &  Mary  Borchers  (Osborne  U  Associates), 

77  business,  investment,  mathematical,  statistic,  and 
home-use  programs,  including  federal  withholding,  tax 
depreciation,  check  writer,  recipe  cost,  map  check, 
day  of  week,  days  between  two  dates,  anglo  to  metric, 
alphabetize,  etc*,  $7,50*< 

TAPE  3  LEVEL  H: 

PEOPLE’S  PASCAL  program  development  system, 
royalty  software  developed  by  John  Alexander,  based 
on  tile  Kin- Man  Chung/Herbert  Yuen  "A  ‘Tiny’  Pascal 
Compiler”  articles  In  the  September  (f78),  October  and 
November  ’’Byte". 

The  system  Indued*  editor/compller,  interpreter, 
demonstration  Pascal  source  and  object  programs, 
translator,  Pascal  library,  and  three  run-time  systems. 
People’s  Pascal  runs  on  any  16K  Level  II  TRS-9D 
system,  $15  ($13,50  to  TRS-80  Computing  subscribers)*, 

TAPE  4  LEVEL  I: 

Election  returns,  business  percentage,  math  problems. 
Snoopy  graphic,  cash  register,  action  on  the  Enterprise, 
chase,  commander- in- chief*  Christmas  graphic,  ups  & 
downs  of  business,  deep  dark  secrets,  air  raid,  cross 
index,  speech  recording  aid,  inventory  control,  check¬ 
book  balance,  sales  receipt  tally,  $7,50*, 

TAPE  5  LEVEL  O: 

Executive  tension-breaker,  lineprinter  to  screen  or 
screen  to  lineprinter  exchange  utility  program,  elec¬ 
tion  returns,  business  percentage,  check  balancing,  car 
pool  database,  RAM  memory  test,  mind  bender,  mort¬ 
gage  payments,  spelling  bee,  common  factor,  diet  plan¬ 
ning  II,  Star  Trek  n I,  Star  Wars,  klindon  capture,  knights, 
federal  income  tax,  chase,  tachitscope,  music  {"Yester¬ 
day"),  vacation  planner,  $7,50*, 

•ADD  50jJ  postage,  handling;  CA  residents  add  tax, 

DEALER  IN  QUERIES  INVITED 


PEOPLE'S  SOFTWARE : 
77-program,  tape  $7.50 

Now  TRS-80  owners  don’t  have  to  shell  out  a  bundle 
of  money  or  work  hard  to  get  a  good  assortment 
of  programs  for  the  world’s  most  popular  computer. 
People’s  Software  gives  you  up  to  77  public-domain 
programs  on  one  cassette  tape,  just  $7.50  plus  50*J 
postage  and  handling  (CA  residents  add  45jg?  tax— 
FOREIGN  orders  must  be  paid  in  U,S.  funds;  postage 
is  $1  per  tape,  via  air). 

Nonprofit  Computer  Information  Exchange  has  been 
concerned  about  how  public  domain  software  can  be 
easily  made  available  to  the  public. 

Anyone  with  a  library  of  computer  magazines  can 
keyboard-in  a  wealth  of  software,  at  no  more  cost  than 
the  user’s  time  and  frustration.  CIE’s  experience  has 
been  about  150  hours  for  the  7 7 -prog ram  Tape  2.  As¬ 
suming  that  $1  of  the  $7.50  selling  price  of  the  soft¬ 
ware  is  medium  cost  (the  tape),  a  person  doing  the 
job  himself  will  be  saving  4,33  cents  per  programming 
hour.  Tape  X,  even  though  it  contains  fewer  pro¬ 
grams,  half  of  which  came  from  the  San  Diego  TUG 
(user  group),  required  many  more  hours  preparation. 
People’s  software  was  not  brought  out  to  compete 
with  commercial  software,  CiE  encourages  TRS-80 
users  to  market  programs.  The  nonprofit  organization 
gives  free  space  in  TRS-80  Bulletin,  as  well  as  offering 
low-cost  Bulletin  ads.  Good  commercial  software  is 
the  foundation  of  our  TRS-80  computing,  starting  with 
TRS-80 rs  Micro  Soft  Level  II  Basic  ROMs, 

With  introduction  of  People’s  Software,  personal 
computing  can  be  made  much  more  rewarding  for 
everyone,  since  users  can  share  the  fruits  of  their 
labor— and  this  can  be  inexpensively  distributed,  in 
machine-readable  form  (no$0,0433-per-hour  keyboard- 
tagJ)- 

Digital  Equipment  Corp  (DEC)  computer  users,  by 
joining  DECUS,  have  been  able  to  share  programs  in¬ 
expensively,  Now  Radio  Shack  users  have  People's 
Software, 


computer  information  exchange,  inc. 


box  158 

--PEOPLE’S 
(  )  Tape  1  Level  II,  $8* 
(  )  Tape  2  Level  13,  $8* 
(  )  Tape  4  Level  I,  $8* 

(  )  Tape  5  Level  n,  $8* 


san  luis  rey  ca  92088 

SOFTWARE  --  - 

(  )  Tape  1  Level  I,  $8* 

(  )  Tape  3  Level  n,  $15,50 
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Newett  Awl  and  the  Goat 


BY  GORDON  FRENCH 
PART  It:  THE  SOLUTION 

When  we  left  Newett,  he  was  discussing  his  solution  with 
Gordon  and  Gordon's  neighbor,  the  part-time  policeman* 
They  had  fust  been  told  that  the  problem  could  be  solved  by 
looking  at  the  area  that  the  goat  eats  as  two  circular  segments , 
The  problem,  once  again,  was  to  write  a  program  that  would 
tell  you  how  long  to  make  a  rope  so  that  if  you  staked  a  goat 
at  the  edge  of  a  20  foot  diameter  circle ,  the  goat  would  eat 
exactly  half  the  grass. 

Figure  1  was  Newett  !s  rough  sketch  of  the  problem  Figure  2 
gives  the  information  needed  to  set  up  the  equation  to  calcu¬ 
late  a  circular  segtnent.  The  formula  is  A  =  VzjRL  -  C(R  -  H)j 
where  R  is  the  radius,  L  is  the  arc  length,  and  C  is  the  base. 

Here  is  Newett  *s  program  and  the  rest  of  the  story *  Enjoy!! 

-RZ 


Newett  showed  us  the  listing,  and  began  to  explain  the  code 

line  by  line.  As  best  as  I  can  remember  Ills  comments  went 

something  like  this: 

*  lines  10  and  20  set  up  two  dummy  values  to  make  the 
transcendental  functions  come  out  in  degrees  instead  of 
radians  which  most  computers  usually  deliver. 

*  Lines  30  and  40  are  the  input  to  the  program  for  the  di¬ 
ameter  of  the  lawn  and  the  percentage  that  the  goat  is  to 
eat. 

*  Line  50  sets  a  limit  counter  for  use  later  and  line  60  cal¬ 
culates  the  area  of  the  lawn  for  the  diameter  given .  Line  70 
calculates  the  goat’s  portion. 

*  Line  80  thru  95  spill  out  the  calculations  and  let  you  know 
that  the  problem  is  being  worked  on. 

*  Lines  100  and  110  set  the  initial  angle  to  45  degrees  and 
the  radius  of  the  lawn  to  half  the  diameter. 

*  Line  120  calculates  the  length  of  half  of  the  base  of  the 
circular  segments.  It  is  common  to  both  segments  for  this 
solution. 

-  Line  130  calculates  a  factor  later  used  to  determine  the 
angle  for  one  of  the  two  circular  segments. 

*  Line  140  calculates  the  height  of  the  outer  segment, 

■  Line  150  calculates  the  radius  of  the  inner  segment  and  is 
really  the  rope  length. 

*  Line  160  calculates  the  height  of  the  inner  segment, 

*  line  3  70  calculates  the  common  base  for  both  segments, 

*  Line  180  calculates  the  angle  of  the  outer  segment, 

*  Line  190  sets  up  the  parameters  for  the  outer  segment  and 
calls  the  subroutine  that  calculates  the  area  for  the  outer 
segment. 


Reprinted  by  permission  from  the  Homebrew  Computer  Club  Now?- 
ferter,  Vol.  1,  issue  1,  Jan, -Feb,  1979,  pp,  4 “5. 
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Line  200  saves  the  area  of  the  outer  segment  as  the  variable 

A2. 

lines  210  thru  230  do  the  same  for  the  inner  segment, 
line  240  combines  the  two  areas  for  testing, 
line  250  tests  if  the  goat’s  area  is  greater  than  the  area 
of  the  two  segments  and,if  it  iss  directs  the  program  to  in¬ 
crease  the  angle  and  recalculate  the  two  areas. 

Line  260  tests  if  the  goat’s  area  is  less  than  the  area  of  the 
two  segments  and,  if  it  is,  directs  the  program  to  decrease 
the  limit  factor  by  half,  and  decrease  the  angle  and  re¬ 
calculate  the  two  areas.  Newett  commented  that  the  ELSE 
statement  in  the  Line  260  will  end  the  program  if  the  two 
areas  are  exactly  equal,  but  said  that  it  is  improbable  that 
the  program  would  terminate  there. 

Lines  270  and  280  decrease  the  limit  factor  and  the  angle. 
Line  300  increases  the  angle  for  the  next  approximation. 
Line  310  tests  if  the  limit  factor  is  still  significantly  large 


to  effect  the  angle,  Newett  explained  that  this  is  the  means 
he  used  to  detect  if  the  angle  had  been  calculated  to  the 
limits  of  accuracy  of  the  BASIC  being  used.  This  is  the  test 
that  will  most  often  limit  the  calculations  and  get  you  out 
of  the  loop. 

•  Lines  320  and  330  calculate  the  length  of  the  arc  and  the 
area  of  the  segment  whose  parameters  were  passed  to  the 
routine  as  Ys  R,  H,  and  C, 

*  line  350  spills  the  result  of  the  calculations, 

I  was  really  quite  pleased,  and  so  was  Newett.  While  1  was 
busy  explaining  how  clever  all  this  was  to  my  neighbor, 
Newett  began  to  roil  himself  a  smoke.  Yep!  Out  came  the 
badge  and  the  cuffs  and  before  1  could  think,  Newett  was 
hauled  away,  I’d  have  gone  down  to  bail  him  out,  but  the 
microbus  is  locked  up  and  neatly  parked  in  front  of  my  drive¬ 
way. 


Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 

95 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


J=1 .745329252E-02 
J1=1/J 

INPUT"DIAMETER  OF  LAWN  =  ",D 
INPUT"PERCENTAGE  OF  LAWN  GOAT  IS  TO  EAT  =  ",P 
F  =1 

A=3.l4l59265*(D/2)  A  2 
G=A*(P/100) 

PRI NT"AREA  OF  LAWN  IS  "  .A,"  SQUARE  UNITS11 
PRlNT"G0AT'S  PART  IS  "  ,G,"  SQUARE  UNITS" 

PRI NT"CALCULAT1 NG .  .  . 


N1=45 


R1=D/2 

C2=SIN(N1*J)*R1 
X=SQRT(R1 a  2-C2 A  2) 

H  2= R1 -X 

R2=SQRT(H2A2+C2A  2) 

H1=R2-H2 

C=C2*2 

Y=2*J 1 *ATN (C2/H2) 

H=H2  \  R=R1  \ G0SUB  320 
A2=A 

Y=2*J1*ATN(C2/X) 

H=H1  \  R=R1  \  G0SUB  320 

A1=A 

A=A1+A2 

IF  G  >A  THEN  300 

IF  G<A  THEN  270  ELSE  350 

F=F/2 


N 1 =N 1 - F 
GOTO  310 


N 1=N1+F 

IF  N1  +  F  =  N1  THEN  350  ELSE  120 
L  =  J  *  R  *  Y 

A  =  1/2  *  {R  *  L  -  C  *  (R  -  H)) 

RETURN 

PRI NT"MAKE  THE  ROPE  ",R2,"  UNITS  LONG" 
END 


A  raising  to  a  power. 

\  -+ multiple  statements. 

See  page  71  of  this  issue  for  a  reader 
response  to  this  challenge. 
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Qandalf 

Comes  to 
Madison 
High 


BY  RALPH  ROBERTS 


Photos  of  visitors  to  the  May  science  fair  in 
the  Asheville  Mail  interacting  with  Gandalf, 
by  the  a  other. 


if  kids  want  to  compute, ,  they  should  have  the 
chance .  So  reasoned  Ralph  Roberts,  who  re¬ 
cently  helped  a  group  of  North  Carolina  high 
school  students  put  together  a  computer  from 
a  kit  Ralph ,  who  describes  the  birth  of  the 
computer  in  the  story  below,  is  known  to  many 
of  you  for  his  RC  fiction  (his  latest  for  u$  - 
"What  Light  on  Yonder  Panel  Plashes?"  in  the 
July- August  issue),  —  LB 
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RECREATIONAL  COMPUTING 


Madison  High  sits  on  a  mountaintop  overlook¬ 
ing  the  small  town  of  Marshall,  in  the  Blue 
Ridge  mountains  of  Western  North  Carolina* 
Surrounded  by  higher  peaks  of  unsurpassed 
beauty,  this  setting  seems  straight  out  of 
Tolkien*  You  can  almost  see  cloud -enshrouded 
castles,  flying  dragons,  and  (look  closely)  a 
hobbit  or  two*  Indeed,  it's  a  most  fitting 
setting  for  the  reincarnation  of  the  mighty 
Gandalf. 

And  what  form  does  the  great  wizard  achieve 
in  this  life?  A  computer,  naturally.  To  be  more 
specific:  a  SWPTC  MP680G,  lovingly  con¬ 
structed  from  a  kit  by  the  students  of  the 
high  school  math  and  electronics  clubs.  The 
system  also  includes  an  old  but  still  sturdy 
ASR33  teletype  (formerly  of  Western  Union); 
a  couple  of  Smoke  Signal  floppy  drives;  a 
home -built  terminal  (parts  donated  by  a  local 
microswitch  manufacturer);  and  a  custom 
cabinet* 

Three  teachers  at  Madison  High  —  Dave  Cox, 
Rex  Sprinkle,  and  Louis  Zimmerman —oversaw 
and  assisted  in  Gandalf 's  rebirth.  They  worked 
long  and  hard  in  the  raising  of  funds,  the  pro* 
eurement  of  parts,  and  the  finagling  of  outside 
help  (I  was  one  of  the  helpers). 

The  result  was  a  very  good  computer  system, 
owned  not  by  the  school,  but  by  the  students* 
A  computer  that  opens  up  a  magical  new 
world  of  knowledge  and  allows  'hands-on' 
experience* 

Gandalfs  coming-out  party  was  at  the  May 
science  fair  in  the  nearby  Asheville  Mall*  Here, 
Gandalf  calculated  biorhythms,  played  a  stock 
market  game,  and  performed  musical  selections 
for  the  awed  passersby*  In  general,  he  was 
the  center  of  attention,  and  the  students  of 
Madison  High  received  well -deserved  acclaim, 


SEPT -OCT 


1979 
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Designing 

j^njni?1 

Gaines 


BY  MIKE  GABRIELSON  AND  TOM  MARTIN 

Does  your  cat  have  three  legs ?  Is  an  octopus  with  seven  arms 
a  septipus?  If  you  are  designing  your  own  Animal  game , 
you  can  have  any  creatures  you  want ,  even  mythical  beasts. 
In  fact ;  the  design  hints  for  this  game  can  be  used  to  produce 
many  other  'learning  ”  programs. 


The  next  step  is  for  someone  to  modify  the  program  to 
produce  the  pictures  and  sounds  of  the  animals.  Why  not? 
It  can  even  be  done  in  color I 

For  any  readers  wishing  to  correspond  with  Mike  or  Tom , 
just  write  to  M.  Gab  riel  son  t  P.O.Box  2692 ,  Stanford,  CA 
94305.  or  T.  Martin,  1918  Cooley  A ve. ,  #5,  East  Palo  Alto , 
CA  94303.  = RZ 


After  repeatedly  running  into  demonstrations  of  the  Animal 
game  and  its  variations,  we  finally  decided  to  implement  a 
version  ourselves, 

DESIGN 

Animal  relies  on  a  growing  data  base  of  records.  Each  record 
consists  of  three  parts. 


<o> 

A  question  to  ask. 

O) 

The  next  question  to  ask  if  the  answer  to  (0)  was  '‘yes". 

<2) 

Thu  next  question  to  ask  if  the  answer  to  (0)  was  "no". 

Sometimes  part  (0)  is  a  final  guess  with  no  follow-up  ques¬ 
tions*  In  that  case,  part  (1)  is  simply  a  and  part  (2)  is  null* 
For  example,  here  is  a  data  base  of  eight  records: 


F*  it  a  hnt? 


DATA 

BASE 


U  it  a  household  pet? 


Is  It  a  dug? 


is  it  a  lion? 


Is  It  an  iragle? 


Are  you  thinking  of  nn  on  i mall 


lines  it  f  lv? 


Are  yon  chinking  of  an  animal? 


Hoes  it  fly? 


Dots  it  have  feathers? 


Is  it  a  household  pet? 


Is  it  o  dog? 


Does  it  have  feathers? 


Is  it  an  eagle? 


Is  it  a  hAt? 


Is  it  a  lion? 
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RECREATIONAL  COMPUTING 


The  root  record  is  used  by  the  computer  to  start  the  question¬ 
ing.  Notice  how  the  records  can  be  arranged  into  a  binary 
tree,  with  a  path  leading  from  the  root  to  every  question  in 
the  data  base. 


Listing  1  is  a  sample  dialogue  between  the  computer  and  a 
player.  The  resulting  data  base  is  summarized  in  Listing  2. 


Here’s  the  same  tree,  shown  with  a  little  less  redundancy: 


Listing  1 
Sample  Run 

: ANIMAL 

ARE  YOU  THINKING  OF  AN  ANIMAL?  (YES  OR  N0)?N0 
ARE  YOU  THINKING  OF  AN  ANIMAL?  (YES  OR  NO)? YES 
DOES  IT  LIVE  UNDER  WATER? NO 

does  it  have  wings ?no 

DOES  IT  HAVE  LEG$?YES 
DOES  IT  HAVE  FOUR  LEGS? YES 
DOES  IT  EAT  MEAT? YES 
IS  IT  A  LION? NO 

I  GIVE  UP!  WHAT  IS  YOUR  ANIMAL? A  DOG 
BEFORE  I  ASK  'IS  IT  A  LION?  * , 

WHAT  NEW  QUESTION  CAN  I  ASK  THAT  WILL  UNIQUELY  IDENTIFY 
A  DOG? IS  IT  A  COMMON  HOUSE  FET 
WHEN  THINKING  OF  A  DOG „ 

WHAT  IS  THE  ANSWER  TO  'IS  IT  A  COMMON  HOUSE  FET*  7 YES 
I’LL  REMEMBER  THAT, 

DO  YOU  WANT  TO  PLAY  AGAIN ?¥E5 

ARE  YOU  THINKING  OF  AN  ANIMAL?  (YES  OR  NO) ? YES 

DOES  IT  LIVE  UNDER  WATER?NO 

DOES  IT  HAVE  WINGS? NO 

DOES  IT  HAVE  LEGS?YES 

DOES  IT  HAVE  FOUR  LEGS? YES 

DOES  IT  EAT  ME AT? YES 

IS  IT  A  COMMON  HOUSE  FET? YES 

IS  IT  A  DOG? YES 

I  GUESSED  YOUR  ANIMAL! 

DO  YOU  WANT  TO  PLAY  ACA1N?N0 


To  play  the  game,  the  computer  starts  with  the  root  question, 
and  then  asks  subsequent  questions  as  determined  by  the 
player’s  yes  or  no  answers.  If  an  11  is  reached,  the  computer 
has  “guessed”  the  player’s  animal.  If  a  null  is  reached,  the 
computer  has  failed,  and  the  player  is  asked  for  a  new  animal 
to  be  added  to  the  data  base. 
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R ECFt  E  ATIO  NA L  COMPUTING 


IMPLEMENTATION 

Listing  3  is  the  complete  source  code  for  the  Animal  game  as 
written  in  the  DATA/BASIC"*"  ^  language  for  the  Microdata 
Royale™  computer. 

Line  3  opens  the  file  named  “ANIMALS”  for  subsequent 
access  by  READ  and  WRITE  statements.  All  data  base  records 
exist  in  this  one  file. 

Lines  6  to  58  form  one  large  LOOP  which  is  executed  once  for 
each  time  the  game  is  played.  The  LOOP  REPEATS  until  the 
variable  PLAY  is  set  to  “NO”  in  line  57  (all  variables  in  the 
program  are  string  variables).  PLAY  is  initialized  to  “YES” 
in  line  5  to  guarantee  the  LOOP  is  executed  at  least  once. 

Lines  II  to  21  form  a  LOOP  that  the  computer  REPEATedly 
executes  as  it  travels  down  the  tree  of  questions.  The  variable 
ROOT  contains  the  current  question  being  asked;  it  is  in¬ 
itialized  to  a  known  starting  value  in  line  9.  The  program 
assumes  the  data  base  has  been  initialized  to  contain  at  least 
two  records,  one  of  which  contains  the  standard  root  question, 
and  tiie  other  contains  a  final  guess.  For  example, 


Since  INPUT  statements  automatically  provide  a  ques¬ 
tion  marks  are  not  actually  stored  in  the  data  base  at  the  end 
of  each  question. 

The  PARENT  (initialized  in  line  8)  and  GRANDPARENT 
variables  are  used  to  maintain  a  history  of  the  questions 
asked,  in  case  the  program  later  needs  to  insert  a  new  animal 
and  question  into  the  appropriate  place  in  the  tree.  The  aging 
of  PARENT  to  GRANDPARENT  and  ROOT  to  PARENT 
occurs  in  lines  16  and  17, 

Line  14  sets  the  ANSWER  variable  (initialized  in  line  7)  to 
the  player’s  “YES”  oi  “NO”  response,  which  is  solicited  after 
the  computer’s  current  guess  is  made  in  line  13.  OLDANSWER 
remembers  a  previous  ANSWER  for  possible  later  use  in  line 


48,  when  the  program  needs  to  know  whether  to  REPLACE  a 
left  or  right  tree  branch. 

Part  (0)  of  every  record  is  considered  to  be  a  key  by  which  the 
remaining  data  in  parts  (1)  and  (2)  can  be  accessed,  line  15 
READs  a  complete  variable -length  record  into  the  variable 
named  RECORD,  All  the  data  for  a  record  is  input  with  a 
READ  merely  by  specifying  the  key.  For  example, 

READ  QUESTIONS  FROM  "DOES  IT  HAVE  WINGS" 

finds  the  record  with  part  (0)  equal  to  “DOES  IT  HAVE 
WINGS”,  and  stores  the  remainder  of  the  record  in  the  var¬ 
iable  named  QUESTIONS.  Another  example  is 

READ  PARTS  FROM  KEY 

which  finds  the  record  with  part  (0)  equal  to  the  contents  of 
the  variable  KEY,  and  stores  the  data  into  the  variable  PARTS. 

By  using  the  intrinsic  EXTRACT  function  in  lines  18  and  19t 
the  program  sets  ROOT  to  the  next  question  to  ask,  which  is 
either  part  (1)  or  part  (2)  of  the  record  just  read.  Of  course, 
the  part  selected  depends  on  the  player's  ANSWER.  The 
LOOP  is  then  REPEATed  with  the  new  ROOT. 


•  A«MIMAL 

001  *  ANIMAL  -  MIKE  GAHMIELSON  -  S/19/78 

HI  OPEN  ""  ."ANIMALS"  ELSF  PRINT  "ANIMALS  PILE.  IS  MISSING  I  "  i  STOP 
009  * 

005  PLAY  =  "YES" 

006  LOOP  UNTIL  PLAY  =  "Nfl"  DO 
007  ANSWER  =  "" 

PARENT  =  "" 

ROOT  =  "ARE  YOU  THINKING  OE  AM  ANTRAL?  (YES  OP  NOV 


008 
009 
010  * 
Oil 
01? 

013 
oiu 
015 
016 
017 
0  18 
019 
0?0 
0  P 1 
0?2  * 
0?3 
0  29 
025 
0  26 
037 
0?B  * 
039 
030 
031 
032 
033 
039 
0  35 
0  3  b 
037 
038  * 
039 
OUO 
out 
092 
093 

099 

095 

096 

097 

098 

099 

050 

051 

052 

053  * 

059 

055 

056 

057 


LOOP  WHILE  (ROOT  <>  "*"1  A NO  (ROOT  <>  ""1  00 
OLOANSwER  =  ANSWER 
PRINT  ROOT: 

RFADTRECORORFPOM  ROOT  FLSE  PRINT  "ANIMALS  FILE  IS  DAMAGED!"  1  STOP 
GRANDPARENT  =  PARENT 

PARENT  =  ROOT  ns  ,  _c 

TF  ANSWER  s  "YES"  THFN  ROOT  =  f X T PACT ( RF CORO »  1*  0.  01  FLSE 

ROOT  -  EXTRACT (RFCORD.  2.  0.  0) 

END 

REPEAT 

TF  ROOT  s  THEN  PRINT  "I  GUESSED  YOUR  ANIMAL ! "  EISF 

PRINT  "I  GIVE  UP!  WHAT  TS  YOUR  ANIMAL": 

INPUT  NEwANIMAL 

WRITE  ON  "TS  IT  " • NF  w AN I MAt 

USED  =  "YES" 

LOOP 

PRINT  "BEFORE  I  ASK  PARENT !"? 1  * " 

PRINT  "/.HAT  NEW  QUESTION  CAN  T  ASK  THAT  WILL  UNIQUELY  IDENTIFY 
PRINT  NFaANIMAl: 
input  QUFSTTON 

READ  RECORD  FROM  QUESTION  FLSE  USED  =  NO 

WHILE  USFD  =  "YES"  00  .. 

PRINT  "SORRY. ..I  ALREADY  USF  THAT  QUESTION. 

REPEAT 

PRINT  "WHEN  THINKING  OE  "  :  NEw  ANT  M  Al  :  "  .  " 

PRINT  "wHAT  IS  THE  ANShER  TO  * " : QUFST ION:"'": 

INPUT  ANSWER 

IF  ANSWER  s  n Y  F  S THFN 

wPTTE  "TS  IT  «:NEHANTMAL:CHAR (259) :PARFNT  ON  QUFSTTON 

D|wRTTfc  PARENT  :  CHAR  (  2591  T  S  IT  ":NFwAMTMAL  ON  QUESTION 

READNRECORO  FROM  GRANDPARENT  ELSF  PRINT  "I'VE  LOST  MY  MEMORY!"  I 

,F  0.  0.  Qllf  STTHN1  ON  GRANDPA  RE-' NT 

FNDkRITE  RFPLACE (RECORD.  2,  0.  0.  QUESTION)  ON  GRANDPARENT 
END 

PRINT  "I'LL  REMEMBER  THAT." 

END 

PRINT  "00  YOU  WANT  TO  PLAY  AGAIN": 

INPUT  PLAY 


058  REPFAT 
059  * 

060  END 


Listing  3 
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When  the  computer  finally  EXTRACTS  an  “  *”  or  null,  the 
WHILE  condition  in  line  11  will  no  longer  hold,  the  LOOP 
terminates,  and  line  23  is  reached.  If  the  final  ROOT  is 
the  computer  has  won  and  reports  success,  ELSE  lines  24  to 
55  are  executed  in  order  to  learn  a  new  animal. 

The  colon  seen  in  line  24  is  the  concatenation  operator,  which 
often  appears  as  a  semicolon  in  other  BASICS. 

The  user  types  in  the  name  of  the  new  animal  when  line  25 
is  executed.  To  simplify  the  code,  the  program  assumes  the 
user  will  provide  the  necessary  indefinite  article  and  avoid 
any  terminating  punctuation.  In  other  words,  the  program 
expects  input  like  “A  CHICKEN”  or  “AN  OSTRICH”  with  no 
ending  period , 

Line  26  creates  a  new  data  base  record  for  the  new  animaL 
The  is  part  (I),  part  (2)  is  null,  and  the  record’s  key  in 
part  (0)  is  formed  by  prefixing  “IS  IV'  to  the  animal’s  name. 

Whenever  a  new  animal  is  added  to  the  data  base,  a  new 
question  must  also  be  added  that  will  allow  the  computer  to 
differentiate  between  the  new  animal  and  the  last  guess  it 
made.  Lines  30  to  32  ask  for  this  somewhat  awkwardly,  A 
better  prompt  might  be  something  like ; 

WHAT  QUESTION  CAN  I  ASK  TO  TELL  A  COW 
FROM  A  HORSE? 

but  this  would  require  temporarily  stripping  the  “IS  IT”  from 
the  PARENT,  The  current  pJuasing  is  used  to  keep  the  code 
uncluttered  and  hopefully  more  understandable.  For  the  same 
reasons,  the  program  assumes  the  player  will  type  in  a  ques¬ 
tion  with  no  terminating  question  mark  or  other  special 
punctuation  in  response  to  line  33. 

The  LOOP  in  lines  29  to  37  accepts  questions  from  the  player 
until  one  is  found  which  is  not  already  used  in  the  data  base 
for  distinguishing  between  two  already -known  animals.  A 


totally  new  question  is  needed  since  the  program  will  make 
one  of  its  branches  point  to  the  new  animal,  and  existing 
questions  already  have  both  their  branches  used  up. 

The  variable  USED  (initialized  in  line  27)  controls  the  LOOP; 
its  value  of  “YES”  assumes  that  any  question  suggested  by  the 
user  has  already  been  used  in  the  data  base.  Line  34  attempts 
a  READ  of  each  proposed  new  question.  If  the  READ  fails, 
then  the  question  has  not  been  used,  the  ELSE  clause  is  exe¬ 
cuted  to  set  USED  to  “NO”,  the  WHILE  test  in  line  35  will 
fail,  and  line  39  will  be  reached. 

lines  39  to  41  determine  which  branch  of  the  new  question 
record  should  point  to  the  new  animal.  The  actual  question 
record  is  created  by  line  43  or  45.  CHAR  (254)  generates  the 
ASCII  code  for  the  special  system  delimiter  character  that 
separates  parts  (1)  and  (2)  in  data  base  records. 

Lines  47  to  52  complete  the  insertion  of  the  new  question  into 
the  data  base  tree.  The  READ  in  line  47  fetches  the  record 
pointing  to  (containing  the  key  of)  the  computer’s  last  guess. 
The  pointer  (record  key)  is  then  REPLACEd  with  a  pointer 
to  (the  key  of)  the  new  question.  The  patched  GRAND¬ 
PARENT  record  is  then  written  back  out  to  disk  to  com¬ 
plete  the  operation  of  inserting  the  new  question. 

In  this  way,  the  system  allows  the  data  base  to  continually 
grow,  with  no  other  special  intervention  on  the  part  of  the 
player. 


FINAL  NOTES 

For  a  description  of  implementing  binary  trees  in  assembly 
language,  see  “Binary  Tree  Manipulation  on  the  8080“ 
/>,  Dobb  ls  Journal ,  #  30,  page  1 5, 

Animal  is  a  fascinating  game  to  play  on  a  computer,  since  the 
machine  participates  in  such  a  lively  way.  We  hope  this  article 
will  stimulate  new  versions  and  implementations  of  Animal. 
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The  Outside  ©nnection 


BY  DOC  PLUMBER 

Control  ting  a  home  alarm  system  with  your  TRS-80?  Switch¬ 
ing  on  the  coffee  maker  with  your  PET?  Yesf  you  can  connect 
your  micro  to  the  "outside  world/'  and  you  don't  have  to  he 
a  super  programmer  or  engineer  to  make  the  modifications. 
According  to  writer  Doc  Plumber,  any  amateur  can  I  Doc 
defines  an  amateur  as  "someone  who  knows  a  little  BASIC 
and  can  tell  the  difference  between  a  screwdriver  and  a 
wrench. "  (Plumber  is  otherwise  known  as  Don  Inman former 
editor  of  Calcu  lators/Com  outers  M  agaz  inej  — LB 

This  is  the  first  in  a  series  of  articles  on  how  an  amateur  can 
experiment  with  connecting  a  computer  to  outside  devices. 
If  you've  never  attempted  an  "outside  connection"  because 
you  thought  it  demanded  great  technical  skill,  we  hope  this 
article  will  dispel  some  of  your  fears.  In  fact,  this  first  device 
has  built-in  input/output  ports,  making  hardware  experience 
unnecessary. 


The  VAR/80,  manufactured  by  Telesis  Laboratory,  is  designed 
for  use  with  a  minimum  Radio  Shack  TRS-80  computer.  It 
may  be  used  with  or  without  the  TRS-80  expansion  inter¬ 
face.  I  have  connected  mine  directly  to  the  connector  on  the 
TRS-80  keyboard  module.  The  unit  comes  assembled  and 
tested,  and  a  40-pin  connector  with  two  feet  of  ribbon  cable 
is  supplied. 

The  VAR/80  provides  you  with  one  8 -bit  input  port  and  one 
8- bit  output  port.  A  screwdriver  is  the  only  tool  needed  to 
connect  your  inputs  or  outputs  to  the  unit.  Screw -type 
terminal  strips  are  provided  for  easy  connection.  In  this  and 
future  articles,  we  will  describe  a  series  of  simple  examples 
of  INPUT  and  OUTPUT  statements  using  the  VAR/80, 

To  get  information  into  the  computer  from  the  outside, 
we  use  the  statement; 

INP  (0) 
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The  VAR/80  is  wired  so  that  it  uses  port  number  zero.  Since 
there  may  be  more  than  one  port  in  use,  each  must  be  desig¬ 
nated  by  the  appropriate  number.  The  port  number  must  be 
enclosed  m  parentheses. 

To  send  information  to  the  VAR/80  from  the  computer 
we  use  the  statement: 


OUT  0.64 

No  parentheses  this  time.  The  number  to  the  left  of  the 
comma  ,s  the  port  number.  The  number  on  the  right  of  the 
comma  tells  which  bits  of  the  8-bit  output  should  be  equal 
to  one  (ait  others  wflf  be  zero). 

Sin™  BAq(?aT  “  WOrkin0  with  "umbers. 

ce  BASIC  works  in  decimal  numbers,  each  bit  of  the  8-bit 
input  or  output  is  assigned  a  weighted  value.  These  values  are 
shown  below: 


\*  DB7 

DB6 

DB5 

DB4 

DB3 

DB2 

DB1 

080 

128 

64 

32 

16 

8 

4 

2 

1 

DB  for  data  bit 


{This  is  adapted  from  a  program  in  the  VAR/80  manual.) 

Suppose  you  have  two  windows  in  your  house  wired  to  two 
inputs  of  the  VAR/80  so  that  you  will  be  able  to  determine 
whether  the  windows  are  open  or  closed.  This  could  be  done 
with  two  pieces  of  conducting  material  which  make  contact 
when  the  windows  are  closed,  but  do  not  make  contact  when 
the  windows  are  open.  In  our  example,  we  will  make  the 
connections  to  input  bits  2  and  3  of  the  VAR/80  from  one 
contact  at  each  window.  The  other  contacts  from  each  win¬ 
dow  are  connected  to  ground  as  shown  below. 


Window  I 
Window  2 


, - cTo— 

VAR/80 

rf"n 

- O  DB2 

A  r\in 

LJ 

— 

r\  PXi  n 

w  uiN  U 

Thus  the  statement:  OUT  0,64  would  output  a  1  (voltage 
level  high)  to  the  output  port,  All  other  outputs  would  be  at 
a  low  level  (near  zero  volts,  which  is  called  logic  level  zero). 
In  other  words,  the  computer  is  really  outputing  the  binary 
equivalent: 

D87  DB6  DB5  DB4  DB3  DB2  DB1  DBO 
0  1  0  0  0  0  0  0  =  64 

{decimal) 


When  the  VAR/80  is  being  used,  all  inputs  are  normally  at 
a  high  level  value  (equal  to  one).  Therefore,  when  the  two 
windows  are  open,  the  input  value  is:  128  +  64  +  32  +16  + 
8  +  4  +  2  +  1  =  255.  If  we  make  our  input  statement  read: 


X  =  255  -  INP  (0) 


we  have  the  following  values  for  X: 


only  window  1  dosed 
only  window  2  closed 
both  windows  closed 
both  windows  open 


X  =  255  -  ( 128+64+32+ 16 +8+0+2+ T)  =4 
X  =  255  —  { 1 28+64+32+ 1 G +0+4 +2+ 1 )  ^8 
X  =  255  -  { 1 28+64+32+16+0+0+2+ 1  j  =  T2 
X  =  255  -  H28h  64+32+ 16+8+4+2+1)  =0 


At  the  output  port,  the  data  bit  DB6  would  have  a  voltage 
of  +2.4  to  +5  volts  and  ail  others  would  be  near  zero.  The 
voltage  at  bit  6  could  be  used  to  control  some  external  device. 


In  our  program,  we  will  test  the  value  of  X  to  see  if  windows 
are  open  or  closed,  We  will  then  use  output  bits  DBO  and  OBI 
to  turn  on  lights  to  show  which  windows  are  open  We  could 
also  wire  up  these  bits  to  an  alarm  system. 
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THE  PROGRAM 

90  CLS 

100  X  =  255  -  INP(0) 

110  |F  X  =  4  THEN  OUT 0,2  ELSE  130 
120  PRINT  @64, "WINDOW  TWO  IS  OPEN 

130  IF  X  =  8THENOUT0,1  ELSE  150 
140  PRINT  @64, "WINDOW  ONE  IS  OPEN 

150  IF  X  =  0THEN  OUT £T,3  ELSE  170 

160  PRINT  @64,"BOTH  WINDOWS  ARE  OPEN" 

170  IF  X  =  12  THEN  OUT  0,0  ELSE  100 

180  PRINT  @64,"BOTH  WINDOWS  CLOSED  " 

190  GOTO  100 


REMARKS 

Clear  the  video  screen 


Window  2  is  open,  window  1  closed 
Print  warning  on  screen 

Window  1  is  open,  window  2  dosed 
Print  warning  on  screen 

Both  windows  are  open 
Print  warning  on  screen 

Both  windows  are  closed 
Print  message 

Go  back  and  check  again 


VAR/80  CONNECTIONS 


Window 


-or"  O- 


-cr  o 


Window  2 


/  Inputs  \ 


NC  NO 

a d  • 

OFF  ON  DB  0 


+5  0 

0  GND 

TEST  0 

A0 

K0  DB0 

GND  0 

A  0 

K0  I 

GND  0 

Q)  2  VAR/80 

DB  2  0 

—  0  3 

3  0 

0  4 

4  0 

0  5 

S  0 

0  6 

6  0 

0  7 

7  0 

- Q )  GND 


GND  0 


Telesis  Laboratory,  P.O.Box  1843,  ChiMicothe,  Ohio  45601 
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BASIC  I 

Master  Command  List 

by 

Loyola  University 

Department  of  Mathematical  Sciences 
Mathematics  Teacher  Development  Program 
Program  Director:  Dr,  R,  T,  McLean 
Instructors:  Dr.  Antonio  M.  Lopez,  Jr.,  Dr.  James  Schmit 
Student  Assistant:  Mr.  David  Griffen 
(In  conjunction  with  the  National  Science  Foundation) 


I  What?  Write  programs  that  run  on  the  SOL  -20,  PST  2001, 
Apple  II  and  Level  II  TRS-80  machines  without  changes? 
Unheard  oft  There  are  more  than  three  statements  that  work 
I  the  same  on  all  machines?  Sounds  like  too  much  crayfish 
gumbo  to  me I 

Then  Dr.  Jane  Donnelly  Gawronski  of  the  Department  of 
I  Education,  San  Diego,  CA,  puts  me  in  touch  with  Dr.  Lopez 
and  the  Master  Command  List  and  dispels  my  skepticism. 

COMMANDS 

LIST 

LIST X  Lists  Pine  "X"  if  there  is  one. 

LIST  Lists  the  entire  program. 

LIST  X-Y  Lists  all  the  lines  within  a  program  from  X  to  Y. 

RUN 

RUN  Starts  execution  of  the  program  in  memory  at  the 
lowest  numbered  statement.  RUN  initializes  all  variables 
to  zero. 

RUN  200  Starts  run  at  the  specified  line. 

NEW 

NEW  Deletes  current  program  and  clears  all  variables. 

ARITHMETIC  OPERATORS 


A  =  100  Assigns  a  value  to  a  variable. 


B  =  —A  Negation. 

|  ^ 

PRINT  X~ 3  Exponentiation  (equal  to  X-X*X  in  the 
sample  statement).  A"s  B  with  A  negative  and  B  not  an 
integer  gives  an  error. 

*  References:  User  manuals  for  the  Level  II  TRS-80  PET  2001 
^  Apple  II  and  SOL-20. 


"If  teachers  stick  to  the  list ,  they  can  exchange  listings  and  in 
effect  exchange  programs/' notes  Dr,  Lopez . 

This  rather  large  subset  of  BASIC  seems  to  make  such  ex¬ 
changes  easy  and  possible.  The  list  was  used  and  tested  in  an 
NSF-sponsored  program  at  Loyola  University.  We  and 
Dr,  Lopez  would  like  to  hear  from  people  who  use  the  list  to 
develop  "machine" Independent  programs,  —  RZ 


X-  R *  (8*D)  Multiplication, 

/ 

PRINT  X/f.S  Division, 


R+T+Q  Addition, 


J=  100  —  I  Subtraction, 

LOGICAL  AND  RELATIONAL  OPERATORS 


IF  A  =  15  THEN  40  Equals, 

<> 

IF  AOOTHENS  Not  Equal, 

> 

IF  B>  100  THEN. 8  Greater  Than. 

< 

IF  B  <2  THEN  10  Less  Than. 

O 

IF  100  <.  =  B  +A  THEN  1  Less  Than  or  Equal, 
>  = 

IF  Q>  =  R  THEN  20  Greater  Than  or  Equal. 
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IF  A  <2  AND  B  <  1  THEN  5  If  expression  (A  <  2)  AND 
expression  (B  <  1)  are  both  true,  branch  to  line  five* 
if  A  <  J  OR  B  <2  THEN  2  If  either  expression  (A<  1) 
OR  expression  (B  <  2)  is  true„then  branch  to  line  two* 

STATEMENTS 


DIM  A(3)t  DIM  R3(5,5)  Allocates  space  for  matrices,  AM 
matrix  elements  are  set  to  zero*  Matrices  can  have  up  to 
255  dimensions.  The  size  of  each  must  be  less  than  32767, 
and  is  limited  by  total  memory  available. 


PRINT 

PRINT XrYtZ  Prints  the  value  of  expressions  in 

PRINT  the  list*  If  the  value  list  to  be 

PRINT XfY  printed  out  does  not  end  with  a 

PRINT  "VALUE  IS";  A  comma  (,)  or  a  semicolon  (;), 
then  a  carriage  return /line  feed  is  executed  after  all  the 
values  have  printed.  Strings  in  quotes  (")  may  also  be 
printed,  If  a  comma  appears  after  an  expression  in  the  list, 
then  spaces  are  output  until  the  beginning  of  the  next  pre¬ 
set  column  field  is  reached, 

RETURN 

RETURN  Causes  a  subroutine  to  return  to  the  next  state¬ 
ment  after  the  most  recently  executed  GOSUB. 


END  Terminates  program  execution.  End  can  be  used 
anywhere  in  the  program, 

IR 

FOR  V=1  TO  9.3  STEP  6  The  initial  statement  of  a  FOR - 
NEXT  loop,  V  is  set  equal  to  the  value  of  the  expression 
following  the  equal  sign.  This  value  is  called  the  initial 
value.  Then  statements  between  FOR  and  NEXT  execute. 
The  final  value  is  the  value  of  the  expression  after  the  TO, 
The  step  is  the  value  of  the  expression  following  STEP, 
When  the  NEXT  statement  is  encountered,  the  STEP  is 
added  to  the  variable.  If  no  STEP  size  is  given,  it  is  assumed 
to  be  one  0}* 


INTRINSIC  FUNCTIONS 

ABS  (X) 

PRINT  ABS  (X)  Gives  the  absolute  value  of  the  expression 
X,  ABS  returns  X  if  X  >  =  0,  —X  otherwise, 

ATN  (X) 

PRINT  A  TN  (X)  Gives  the  arctangent  of  the  argument  X, 
The  result  is  returned  in  radians  and  ranges  from  —  n/2 
to  it  12.  (it  /2  *  1,5708) 

COS  (X) 

PRINT  COS  i X )  Gives  the  cosine  of  the  expression  X,  X  is 
interpreted  as  being  in  radians. 


GOSUB  910  Branches  to  the  specified  statement  (910). 
The  program  then  starts  executing  at  line  910  until  a 
RETURN  is  encountered;  where  a  branch  is  then  made  to 
the  statement  after  the  GOSUB.  GOSUB  nesting  is  limited 
only  by  available- memory, 

.  *  *  THEN 

IF  X  <  0  THEN  5  If  the  relation  is  true, 

IF  X  <  0  THEN  PRINT  " X "  branches  to  the  specified 
statement  or  executes  the  statements  on  the  line  after  the 
THEN, 


EXP  (X) 

PRINT  EXP  (X)  Gives  the  constant  e  =2.71828  raised 
to  the  power  X  (E^X). 

INT  (X) 

PRINT  /NT  (X)  Returns  the  largest  integer  less  than  or 
equal  to  the  argument  X,  For  example:  INT  (.23)  =  0; 
INT  (7)  =  7 

LOG  (X) 

PRINT  LOG  (XJ  Gives  the  natural  (base  e)  logartihm 
of  its  argument  X, 


INPUT  V,W,W2  Requests  data  from  the  keyboard  (to  be 
typed  in).  Each  value  must  be  separated  from  the  pre- 
ceedmg  value  by  a  comma  ( , ).  The  last  value  must  be 
followed  by  a  carriage  return.  A  is  typed  as  a  prompt 
character, 

INPUT  "VALUE" ;V  Optionally,  may  be  used  to  type  a 
message  before  requesting  data  from  the  terminal. 


YEXT 

NEXT  V  Marks  the  end  of  a  FOR -NEXT  loop. 


RND  (X> 

PRINT  RND  (X)  Generates  a  random  number  between 
0  and  1  for  X  -  0. 

SIN  (X) 

PRINT  SIN  (X)  Gives  the  sine  of  the  expression  X.  X  is 
interpreted  as  being  in  radians. 

SQR  (X) 

PRINT  SQR  (X)  Gives  the  square  root  of  the  argument  X,  ^ 
An  error  will  occur  if  X  is  less  than  zero. 
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TAB  (X) 

PRINT  TAB  (XJ  Spaces  to  the  specified  position  on  the 
screen.  May  be  used  onty  in  PRINT  statements.  It  speci¬ 
fies  the  absolute  position  from  the  left-hand  margin  where 
printing  is  to  start. 

TAN  (X) 

PRINT  TAN  (XJ  Gives  the  tangent  of  the  expression  X. 
X  is  interpreted  as  being  in  radians. 


Spanish 

BASIC 


STRING  FUNCTIONS 


LEFTS  (X$,l) 

PRINT  LEFTS  (X$,lj  Gives  the  leftmost  I  characters 
of  the  string  expression  X$.  If  I  O  0  or  >  255  an  error 
occurs. 

LEN  (X$) 

PRINT  LEN  (X$J  Gives  the  leftmost  I  characters 
sion  X$  in  characters  (bytes).  Non -printing  characters 
and  blanks  are  counted  as  part  of  the  length. 

MID  $  (X$,  l,JJ 

PRINT  MIDS  (XS,/,JJ  MIDS  is  called  with  3  arguments 
and  returns  a  string  expression  composed  of  characters  of 
the  string  expression  X$  starting  at  the  I'th  character, 
for  J  characters.  If  J  specifies  more  characters  than  are 
left  in  the  string,  then  all  characters  from  the  I'th  on  are 
returned. 

RIGHT  (X$,  I) 

PRINT  RIGHTS  (X$,  t)  Gives  the  rightmost  I  characters 
of  the  string  expression  X$.  If  10  0  or  >255  an  error 
will  occur.  If  I  >=  LEN  (X$),  then  RIGHT$  returns  all 
of  X$. 


STR$  (X) 

PRINT  STR$  (X)  Gives  a  string  which  is  the  character 
representation  of  the  numeric  expression  X. 

VAL  (X$) 

PRINT  VAL  (XSJ  Returns  the  string  expression  X$ 
converted  to  a  number. 


A  string  may  be  from  0  to  255  characters  in  length.  All  string 
variables  end  in  a  dollar  sign  {$);  for  example:  A$,  B9$,  K$. 


The  symbol  "+"  is  used  to  join  or  concatenate  strings,  in 
the  statement: 

,  Z$-R$  +  Q$ 

Z$  becomes  R$  with  Q$  coming  right  after  it.  The  resulting 
string  must  be  less  than  255  characters  in  length  or  a 

*  "STRING  TOO  LONG"  error  will  occur 

★ 


I 
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BY  JIM  DAY 


Jim  sent  us  this  note  and  we  thought  it  made  a  good 
supplement  to  the  BASIC  Master  Command  List  article 
on  the  preceding  pages.  FIN.  _  rz 


Why  should  Spanish -speaking  BASIC  programmers  have 
to  put  up  with  English  mnemonics?  Why  not  give  them 
the  option  of  using  Spanish  mnemonics  instead? 
The  same  interpreter  could  handle  both  forms  and  the 
changes  would  be  trivial.  I  suggest  the  equivalents 
shown  on  the  enclosed  table. 


DIRECT  COMMANDS 

DEL 

TACHA 

LIST 

LISTA 

LOAD 

PONE 

RUN 

ANDA 

SAVE 

SALVA 

INDIRECT  COMMANDS 

DATA 

DATOS 

DEF  FN 

DEF  FN 

DIM 
END 

FOR  ...  TO  . 

GOSUB 

GOTO 

IF  . . .  THEN 
INPUT 
LET 
NEXT 

ON  . .  .GOTO 
PRINT 
READ 
REM 

RESTORE 

RETURN 


DIM 

FIN 

STEP  DE  . . .  A  . .  .GRADA 

VASUB 
VAA 

SI . . .  LUEGO 

ENTRA 

HACE 

PROXIMO 

POR  . . .  VA  A 

TIPO 

LEE 

NOTA 

RESTAURA 

RETORNO 
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Commodore 's  PET  is  a  factory-assembled 
personal  computer  based  on  a  6502 
microprocessor.  The  original  Pb  T.  model 
2001 -S,  is  a  $795  system  that  includes  a 
keyboard,  cassette  tape  unit,  built-in  TV 
screen,  some  graphics,  upper  and  tower 
case,  extended  8K  BASIC,  and  8K  of 
user  memory. 

SPOT  is  devoted  to  the  host  of  applica¬ 
tions -routine  and  wild— which  Ph.T 
users  have  found  for  their  machines,  as 
well  as  to  the  nitty-gritty  of  repairs  and 
modifications.  In  other  words,  almost 
anything  relating  to  the  PET  is  fit 
material  for  this  column.  Just  send  Harry 
your  questions,  ideas,  and  tapes  cjo  PCX'. 
He’ll  give  each  of  them  his  careful  atten¬ 
tion.  ~  LB 

GAMES,  THESE  ARE  ONLY  GAMES 

This  month’s  column  is  devoted  to  a  sub¬ 
ject  that  occupies  a  lot  of  PET  hours, 
though  many  users  don’t  want  to  admit 
it.  Yes,  I  mean  games.  But  these  games 
tax  the  mind;  they’re  a  far  cry  from  the 
simulations  of  video  games  which  were  a 
big  hit  in  the  early  days  of  the  PET  and 
other  personal  computers.  These  are 
games  that  the  whole  family  can  get 
involved  in.  that  teach  problem  solving 
and  planning  or  such  specific  skills  as 
map -making  and  exploring.  They  are 
games  that  you  build  yourself  with  a  set 
of  tools  provided  by  the  program  creator. 
Games  you  can  easily  spend  weeks  with. 
You're  not  just  hitting  a  moving  target  on 
the  screen. 

1  think  these  programs  represent  a  turning 
point  for  microcomputing.  They  are  truly 
sophisticated.  Even  if  you’re  an  expert 
programmer,  you  can’t  just  take  the  idea, 
and  throw  together  your  own  version 
over  a  weekend.  These  games  took  the 
authors  hundreds  of  hours  of  work,  not 
just  programming,  but  researching  back¬ 
ground  information  for  the  scenarios. 

Of  course,  they  arc  still  games.  But  they 
show  there  are  people  out  there  willing  to 
invest  the  time  and  energy  to  do  first-rate 
complex  programs.  I  assume  we’ll  soon 
see  the  same  amount  of  talent  going  into 
business  applications;  to  date  most 
business -oriented  software  is  thrown 
together,  and  often  better  rewritten 
from  scratch  rather  than  purchased  and 
modified.  I  have  seen  a  few  packages 
under  development  at  Commodore  that 
look  like  they’ll  be  first-rate  large 
packages  when  completed.  Get  ready  for 
them! 


SPOT 

The  Society  of 
PET  Owners  and  Trainers 

BY  HARRY  SAAL 


TANKTICS  AND  LEGIONNAIRE 

These  two  games  are  written  by  Chris 
Crawford,  and  are  available  from  the 
Pleiades  Game  Co.,  202  Faro  Ave.,  Davis, 
CA  95616.  Each  is  run  on  the  “tradi¬ 
tional”  hex  grid  of  die  war  gamer,  but 
that’s  where  the  similarity  ends.  Tanktics 
is  very  cerebral;  those  of  you  familiar 
with  war  simulation  strategy  games  will 
feel  at  home  here.  It  comes  with  a  map  of 
tank  terrain  over  which  you  maneuver 
your  forces*  The  PET  serves  as  both  youx 
opponent,  maneuvering  his  forces 
according  to  the  same  rules,,  and  also  as 
your  battle  computer,  keeping  track  of 
your  moves  and  feeding  you  information 
about  what  you  can  see  out  your  tank 
turrets*  It’s  an  interesting  and  complex 
game,  and  seems  ideal  for  war  game 
freaks  who  don’t  have  a  partner  24  hours 
a  day* 


Legionnaire  is  more  straightforward*  You 
see  a  grid  on  the  PET  screen  and  have  to 
hunt  die  enemy  by  moving  around;  at  die 
same  time  he  is  hunting  you*  This  all 
happens  in  real  time,  and  you  are 
constantly  feeding  separate  orders  to  each 
of  your  *ltribes/’  using  die  PET  key¬ 
board*  People  not  into  war  games  will 
probably  do  well  to  start  with  this  one. 

It  is  fast  moving,  easy  to  learn*  and  takes 
quite  a  bit  of  planning  to  do  well.  Legion¬ 
naire  costs  S9  and  Tanktics  $15  (plus  6% 
tax  for  California  residents). 

MAY  1941 

This  excellent  game  is  an  historical  simul¬ 
ation  of  die  search  for  the  German  battle¬ 
ship  Bismarck  by  the  British  during 
May  1941 .  it  is  related  in  complexity  and 
realism  to  the  Tanktics  game  above,  but 
has  a  significant  difference*  It  is  not  just  a 
physical  simulation  of  the  battle,  but 
attempts  to  be  a  realistic  simulation  of 
actual  events.  The  manual  which  comes 
with  May  1941  is  a  gem,  containing  far 
more  than  playing  instructions.  It 
describes  the  historical  event  being  simu¬ 
lated,  the  nature  and  limitations  of  the 
ships  and  planes  involved  (for  example, 
the  probability  of  spotting  the  Bismarck 
decreases  at  night,  and  during  the  day  of 
May  23 1  when  there  was  bad  weather  in 
the  Atlantic),  and  the  general  strategy  to 
use.  The  biggest  problem  is  locating  the 
Bismarck  and  having  forces  ready  to  then 
chase  and  engage  in  battle.  It  takes 
patience  and  planning  just  to  accomplish 
that  much. 

The  method  of  entering  moves  is  simple, 
and  the  display  contains  a  nice  map  of 
die  North  Atlantic  on  die  righthand  side, 
showing  die  general  land  masses  and  posi¬ 
tion  of  ships  as  they  are  moved  about. 
History  buffs  and  war  gamers  will  find 
this  game  a  delight*  It  is  available  from 
Alder aanT  P,  0.  Box  1243,  So*  Pasadena, 
CA  91030  for  $24*95  (plus  6%  tax  for 
California  residents). 

STARFLEET  ORION 

Starfleet  Orion  is  an  interesting  concept; 
unfortunately,  it  takes  hide  advantage  of 
some  of  the  graphic  capabilities  of  the 
PET  and  its  excellent  video  display. 
Basically ,  Starfleet  Orion  is  a  two -player 
game  between  opposing  forces.  Each  has 
ships  of  differing  capabilities,  and  can 
enter  a  series  of  orders  for  each  without 
die  opposing  player  observing  them.  Once 
done,  die  two  forces  engage  in  battle,  and 
this  continues  until  one  of  the  two  sides 
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is  destroyed.  Ships  can  move,  attack  with 
torpedoes  or  beams,  use  shields  for  pro¬ 
tection,  etc.  It  is  a  shame  that  the  human 
factors  and  the  computer’s  capability 
in  move  determination  aren’t  used  better 
because  die  basic  premise  is  pretty  inter¬ 
esting,  The  Battle  Manual  that  comes 
with  Starfleet  Orion  gives  12  different 
scenarios  which  can  be  entered,  each  pro¬ 
ducing  very  different  challenges.  Starfleet 
Orion  is  available  for  $16,95  from  Auto¬ 
mated  Simulations*  P.  0,  Box  4232, 
Mountain  View,  CA  94040. 

QUEST 

Quest  is  a  challenging  diversion  in  which 
you  must  locate  a  treasure  and  then 
escape  from  a  series  of  interconnected 
rooms  within  a  3 -dimensional  maze*  At 
each  turn  you  can  try  to  move  North, 
East,  South,  West,  Up  or  Down  as  you 
attempt  to  avoid  various  traps  and 
problems*  It  is  an  engrossing  activity,  and 
ts  especially  educational  for  young  child* 
ren  learning  about  maps  and  navigation. 
The  descriptions  are  clever,  and  the  inter¬ 
connections  between  rooms  not  simple  at 
all.  For  example,  one  of  the  more  challen¬ 
ging  paths  you  must  traverse  takes  you 
through  rooms  called  "a  little  twisty 
maze/*  “a  little  twisting  maze,”  "a  twisty 
little  maze,”  or  “a  twisting  little  maze!” 
Quest  is  available  from  the  Peninsula 
Computer  Project,  Peninsula  Way,  Menlo 
Park,  CA  94025  for  $9*95  (plus  6%  tax 
for  California  residents). 

HUNT  AND  HUNTWR ITER 


ADVENTURE 

And  now,  the  real  thing!  All  these 
computerized  fantasy  simulations  trace 
their  origins  back  to  the  original  grand- 
daddy  Adventure,  written  first  at  MIT 
by  Willy  Crowther,  and  then  expanded 
extensively  by  Don  Woods  of  the 
Si  an  ford  Artificial  Intelligence  Labora¬ 
tory.  Those  games  are  based  on  the  non¬ 
computerized  fantasy  game,  Dungeons 
and  Dragons,  by  Dave  Arneson  and  Gary 
Gygax.  The  computer  versions  (see  RCt 
July -August  1979,  for  an  article  on  Zork) 
are  all  large,  complex  programs,  which 
occupy  hundreds  of  kilobytes  of  storage, 
and  typically  take  tens  to  hundreds  of 
hours  to  play. 

They  contain  a  delightful  fantasy  atmos¬ 
phere.  with  literally  dozens  of  puzzles 
that  need  to  be  solved  in  your  quest  for 
treasure  and  points.  Numerous  challenges 
need  to  be  met,  using  objects  discovered 
along  the  way,  moving  them  from  place 
to  place,  with  nary  a  clue  from  the  pro¬ 
gram  about  what  is  going  on*  You  learn  as 
you  go,  and  have  to  be  very  creative  to 
survive  more  than  a  few  moves*  In  fact, 
these  games  are  somewhat  like  intricate 
Chinese  wooden  puzzles  -  there  is  really 
only  one  way  to  do  them;  any  little 
mistake  along  the  way,  and  you  are 
hopelessly  lost,  and  must  begin  again. 


0 


Adventure,  by  Scott  Adams,  is  the 
microcomputer  realization  of  these  big 
sophisticated  mainframe  games.  Adams 
version  is  also  table -driven,  and  the  over¬ 
all  structure  is  described  in  an  article 
which  appeared  in  the  NCC  '79  Personal 
Computing  Proceedbigs,  pp.  218-223, 
entitled  “An  Adventure  in  Small  Com¬ 
puter  Game  Simulation.”  (It  was  sched¬ 
uled  to  be  reprinted  in  the  August  1 979 
issue  of  Creative  Computing.)  Adventure 
provides  a  far  richer  environment  lor 
constructing  games  than  Richter's  Hunt- 
writer;  of  course,  this  means  that  one 
can’t  easily  generate  one’s  own.  and 
unfortunately  Adams  doesn’t  (yet)  dis¬ 
tribute  his  meta- program  f°t  gatne- 
building  and  editing.  There  are  already 
three  different  adventure  games  running 
with  the  Adams  interpreter;  each  takes 
literally  hundreds  and  hundreds  of  moves 
to  complete  (fortunately,  you  can  save  a 
game  in  progress)  and  have  taken 
hundreds  and  hundreds  of  hours  IO 
produce. 

The  first  version  1  saw  was  a  cassette - 
based  version  for  the  TRS-80.  It  was 
written  entirely  in  BASIC,  and  was 
excruciatingly  slow.  Jt  has  been  converted 
for  the  PET,  and  is  available  from 
AB  Computers,  115  E.  Stump  Road, 
Montgomeryville,  PA  18936,  for  S7.9S. 
Note  that  ii  runs  only  on  PETs  which 
are  24K  or  bigger.  This  is  the  first  of  the 
three  Adventures,  and  is  quite  a  bit  faster 
on  the  PET  than  the  original  TRS-80 
version.  I  expect  that  the  other  two  will 
be  available  shortly  as  well. 


Tire  May -June  issue  of  Recreational 
Computing  contained  an  article  by 
Michael  Richter  describing  his  meta- 
games:  Hunt  and  its  game  generator 
program,  Huntwriter.  Hunt  combines  the 
environment  of  Quest  with  the  flexibility 
of  Starfleet  Orion  or  Adventure  (below). 
Hunt  is  a  table -driven  game  in  which  the 
scenarios  (generally  fantasy  simulations) 
are  provided  in  the  form  of  table  or  data 
tapes,  which  are  first  read  in.  lire  neat 
thing  about  Hunt  is  that  you  can  write 
your  own  game  using  Huntwriter.  While 
it  is  limited  compared  to  Quest  or 
Adventure,  it  does  allow  you  to  build  a 
game  around  a  special  interest  (say  Oz  or 
a  particular  TV  series).  You  can  incor¬ 
porate  names  and  places  you  choose 
instead  of  being  restricted  to  the  author’s 
choice.  Hunt  is  now  available  from 
Computer  Way,  P.  O.  Box  7006,  Madison, 
m  53707  for  510, 


But  better  things  are  on  the  way!  There 
is  now  a  machine -language  version  avail¬ 
able  for  the  TRS-80,  which  is  incredibly 
good.  It  is  as  fast  as  could  be  desired, 
providing  instantaneous  response  to 
moves,  giving  an  excellent  scrolled  screen 
display,  and  is  fast  to  load  and  save. 
Adams  is  working  on  the  machine  lan¬ 
guage  equivalent  for  the  PET  and  Apple, 
and  it  should  be  ready  by  the  end  of  the 
year. 

Adams’  Adventure  is  exquisite .  It  is  a 
true  tour -de- force,  running  on  only  a 
1 6k  TRS-80.  Both  parts  of  Ad  ants  work 
are  so  well  done,  it  is  hard  to  know  which 
one  to  praise  most -the  overall  Ad  ven¬ 
ture  interpreter,  or  the  games  themselves. 
Computerized  fantasy  games  have 
arrived! 
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220  GOTO  200  y 

230  HGR  t  CALL  -936  i  VTAB  22 

240  HPLOT  0.150  TO  Bl.150  TO  B1.150-A1  TO  0,150 
250  PRINT  "A="  i A  t  ”  B=  "  t  B  i  "  C="|C 
260  FOR  tf  =  1  TO  3000  t  NEXT  W 
GOTO  130 
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FuturePlay 

{  A  LOOK  AT  FUTURE  PCC  &  RC  FANTASIES  ) 


Have  you  heard  of  ComputerTown,  U.S.  A. !  ? 
Yes!  No? 


Send  your  ideas /inquiries  to: 

ComputerTown,  U.  S.  A. ! 

P.  O.  Box  310 
Menlo  Park,  CA  94025 

Enclose  a  S.  A.S.  E.  If  you  want  information 
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BY  JIM  DAY 

The  Applesoft  program  shown  below  generates  and 
displays  Pythagorean  triples.  The  dimensions  ol  a 
right  triangle  having  integral  sides  are  determined  by  the 
relationships  defined  in  line  150  of  the  program.  The 
rest  of  the  program  draws  a  picture  of  each  triangle, 
scaled  to  fit  the  screen,  and  displays  the  dimensions. 


GRAPHIC 


100  REM  PYTHAGOREAN  TRIPLES 

110  CALL  -936 

1  20  M  =  1  »  HCOLOR  =  3 

130  M  =  M+l 

140  FOR  N  =  1  TO  M-l 

150  A  =  M*M-N*N  t  B  =  2*M*N  t  C 

160  A1  =  A  :  B1  =  B  i  Cl  =  C 

170  IF  Cl  >  75  THEN  200 


=  M*M+N*N 


/ 
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CLUSTER/ONE  DISK 
SHARING  SYSTEM 

Nestar  Systems,  Inc, 

430  Sherman  Ave. 

Palo  Alto,  CA  94306 

Most  teachers  who  have  switched  from 
time -sharing  to  microcomputers  are  de¬ 
lighted  with  the  portability,  the  graphics 
possibilities,  and  the  price.  We  don't  miss 
telephone  problems  or  down-time  at  all. 
Ad  libbing  a  lesson  when  the  computer 
was  down  —  and  chasing  the  problem 
from  modem  to  phone  line  to  teletype  to 
computer  and  back  —  prematurely  aged 
many  of  us. 

But  there  are  still  times  when  it  would  be 
nice  to  be  back  in  the  old  days:  to  have 
instant  access  to  essentially  unlimited 
storage,  demonstration  programs  avail¬ 
able  to  each  port  simultaneously,  and 
programs  secure  from  adolescent  pranks; 
as  well  as  ready  access  to  many  large 
programs. 

Cluster/ One  from  Nestar  Systems  seems 
to  offer  us  the  best  of  both  worlds. 
Cluster/One  is  a  disk  sharing  system  in 
which  up  to  30  micros  can  share  access 
to  dual  eight -inch  floppies.  Once  a  pro¬ 
gram  is  loaded  from  the  disk,  the  micro 
ts  independent  and  acts  as  if  it  were 
alone  in  the  room. 

We  emphasize  to  cassette  users  that  this 
means  instant,  accurate  loading  and  sav¬ 
ing.  For  disk  users,  there  are  two  impor¬ 
tant  points.  First,  this  is  a  very  sophisti¬ 
cated  data  transmission  system  which 
uses  “packet  switching,”  a  technique  de¬ 
veloped  for  large  computer  networks.  The 
disk  operating  system  incorporates  its 
own  error  recovery:  each  WRITE  is  tried 
up  to  four  times  (and  always  verified)  and 
each  READ  up  to  eight  times.  Such  re¬ 
liability  is  not  currently  available  on  mini¬ 
disk  systems.  Second,  no  individual  disk 
drives  are  required,  so  the  cost  of  adding 
additional  micros  excludes  the  disk  (and 
typically  16K  extra  RAM  per  station  for 
the  DOS), 


Right  now  TRS-80s,  Apples,  and  PETs 
can  share  access  to  Cluster/One,  all  at  the 
same  time,  each  loading  only  programs 
written  in  its  own  version  of  BASIC,  The 
system  is  designed  for  the  classroom, 
teaching  lab,  or  industrial  environment, 
which  requires  frequent  access,  from 
many  ports,  to  a  common  bank  of  pro¬ 
grams  secure  from  the  casual  user.  We 
have  each  spent  time  playing  with  the 
system  and  are  most  impressed  with  it* 
both  as  a  technical  achievement  and  as 
an  idea  whose  time  is  now. 

Because  we  are  educators,  we  think  about 
the  teaching  possibilities.  In  a  program¬ 
ming  class,  Cluster/One  would  eliminate 
the  disk  passing  among  students  and 
maintenance  of  back-up  copies,  since  the 
disks  are  centrally  located.  Further,  all 
demonstration  programs  and  common 
data  files  need  only  be  saved  onto  one 
disk.  (Consider  what  is  involved  in  mak¬ 
ing  even  minor  changes  in  a  program  lo¬ 
cated  on  many  disks  or  cassettes.) 

A  meaningful  computer  assisted  instruc¬ 
tion  (CAI)  program  using  micros  seems 
possible  with  this  system,  because  each 
student  can  have  access  to  the  large  num¬ 
ber  of  often  lengthy  programs  required 
by  a  sophisticated  attempt  at  CAI.  Also, 
all  student  records  are  maintained  cen¬ 
trally;  a  student  need  not  find  the  right 
disk  before  each  session,  and  class  stat¬ 
istics  may  be  readily  compiled. 

Others  will  think  of  more  applications: 
in  business  for  data  entry  and  retrieval; 
in  computer  stores  for  quick  demon¬ 
stration  and  comparison  of  different 
micros;  or  in  public  computer  centers. 


SOME  DETAILS 

The  Cluster/One  system  was  designed  by 
Dr.  Harry  Saal,  president  of  Nestar 
Systems,  who  is  best  known  to  RC 
readers  for  his  “SPOT”  column.  The 
Ciuster/One  system  requires  the  use  of 
one  8K  PET  as  the  Cluster/One  console, 
making  the  PET  unavailable  for  other 
purposes.  A  double -sided  disk  system 
offers  about  1.2  megabytes  of  storage 
(half  that  for  single -sided).  Nestar  uses 
Shugart  drives  for  single -sided  disks 
and  Remex  drives  for  double. 

No  routine  maintenance  is  required, 
although  anyone  purchasing  a  computer 
system  should  have  a  clear  maintenance 
agreement  with  the  seller.  The  purchase 
price  of  the  entire  system  depends, 
of  course,  on  the  choice  of  micros,  but 
for  around  $20,000,  one  can  be  disk- 
sharing  with  8  to  15  stations,  including 
the  price  of  the  microcomputers. 

Other  computers  may  soon  be  able  to  be 
used  with  the  Cluster/One.  The  dedicated 
PET  console  is  slated  to  be  eliminated* 
in  favor  of  a  simpler  and  cheaper  terminal, 
or  built -in  display.  Access  to  data  files, 
bo tli  sequential  and  random,  which  can 
be  written  by,  say,  an  Apple  and  read  by 
a  TRS-80  is  planned  for  this  year.  A 
shared  printer  is  expected  next  year,  as 
is  a  hard  disk,  with  from  10  to  1 00  mega¬ 
bytes  of  storage. 
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CRITICISMS  AND  COMMENTS 

There  is  no  perfect  computer  system,  and 
we  have  a  few  minor  criticisms.  To  initi¬ 
ate  contact  with  the  Ciuster/One  system, 
a  one -line  command  must  be  typed  at 
each  station,  and  we  would  prefer  doing 
that  centrally. 

We  also  feel  that  many  educational  users, 
particularly  CAI,  could  make  good  use 
of  a  clock  readable  from  a  BASIC  pro¬ 
gram.  This  is  an  expensive  option  on  the 
Apple  and  the  PET,  and  we  had  hoped 
that  it  could  have  been  provided  centrally 
by  Cluster/One.  Ideally,  the  clock  should 
time  from  fractions  of  a  second  to  a  year 
and  be  backed  up  by  an  inexpensive 
battery  which  needs  no  recharge  and  lasts 
a  year. 

Further,  not  all  dialects  of  BASIC  are 
supported  by  the  Cluster/One.  Programs 
in  Apple  Integer  BASIC  and  in  Radio 
Shack  Level  I  cannot  be  read  from  the 
disk.  It  should  be  noted,  however,  that 
Apple  now  offers  Applesoft,  its  floating 
point  BASIC,  which  is  supported  by 
Cluster/One,  in  ROM  for  the  same  price 
now  charged  for  Integer  BASIC  in  ROM 
—and  that  Integer  BASIC  is  essentially 
a  subset  of  Applesoft. 

Another  possible  drawback  is  that  the 
computers  must  be  centrally  located, 
since  the  maximum  distance  of  any  micro 


from  the  disk  system  is  250  feet  (al¬ 
though  Nestar  has  plans  for  extending 
this  range).  If  a  remote  demonstration, 
development,  or  use  of  part  of  the  system 
is  anticipated,  an  extra  mini -disk  drive 
may  be  needed  for  each  type  of  micro. 

A  real  plus  is  that  this  system  puts  a 
student  directly  in  touch  with  the  com¬ 
ponents  of  a  miniature  computer  system. 
Under  timesharing,  students  saw  only 
terminals  and  had  to  trust  that  indeed 
somewhere  there  was  a  computer.  The 
Cluster/One  concept  is  a  compromise 
between  these  extremes  of  involvement. 
Teachers  will  differ  about  the  choices, 
but  we,  at  least,  think  that  disk  sharing 
offers  the  right  mix  of  security  and  direct 
access. 


Finally,  we  would  like  to  add  that  anyone 
facing  a  decision  to  purchase  a  system  of 
this  magnitude  will  have  a  very  difficult 
task  sorting  out  all  the  claims  and  counter¬ 
claims.  We  urge  you  to  seek  help  from 
a  local  group  of  educational  computer 
users,  such  as  the  Minnesota  Educations 
Computer  Consortium,  Oregon  Council 
of  Computer  Educators,  or  a  new  group 
in  northern  California,  Computer  Using 
Educators,  Sandy  Wagner  can  supply 
information  about  groups  in  other  areas. 

Reviewed  by  Dave  Stone 
and  Sandy  Wagner 


Dave  Stone  teaches  at  Rollingwood  El¬ 
ementary  School  in  San  Bruno,  CA 
94066,  and  has  provided  microcomputer 
support  to  classrooms  in  grades  one 
through  five  since  1976.  He  is  ait  active 
member  of  CUE  (Computer  Using  Edu¬ 
cators). 


SUMMING  UP 

A  Ouster/One  system  may  be  seen  at 
the  Lawrence  Hall  of  Science  in  Berkeley, 
where  it  is  in  daily  use  as  part  of  the 
Hall  s  prop/am  of  providing  public  access 
to  computers.  We  think  this  system  is  an 
important  addition  to  the  world  of  educa¬ 
tional  computing,  and  worth  careful 
consideration  by  those  about  to  embark 
on  an  extensive  teaching  program  using 
computers. 


Dr.  Sandy  Wagner  teaches  math  and  com¬ 
puter  programming  at  Mountain  View 
High  School,  Mountain  View,  CA  94041. 
He  is  president  of  Computer  Using 
Educators,  a  group  dedicated  to  keeping 
computer  teachers  in  touch  with  each 
other  and  with  new  developments  in  the 
field. 
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SWORDQUEST 

Fantasy  Games  Software 
P.O.  Box  1683 
Madison,  WI  53701 
$1 2 .95 ,  Cassette  Tape  (PET) 

In  our  library  project  that  is  part  of 
ComputerTown,  U.S.A!,  we  have  a  PET 
computer  (several  additional  machines 
are  on  their  way)  and  a  file  of  cassette 
tapes.  The  program  most  often  checked 
out  by  the  kids  that  frequent  the  lib- 
rary  project  is  Swordquest. 

During  a  brief  two  week  period,  when  we 
had  to  order  a  second  version  of  the  fan¬ 
tasy  simulation,  the  kids  nearly  drove 
everyone  crazy  asking  for  the  gatne* 
(The  original  cassette  probably  got 
damaged  by  handling  and  sticky  fingers 
touching  the  surface  of  the  tape*  The 
tape  itself  is  protected;  you  cannot  make 
copies  with  the  SAVE  command.) 

Now  we  have  several  new  copies.  The 
Swordquest  fever  is  once  again  at  its 
peak.  Why  do  the  kids  play  this  game 
so  much? 

Because  it’s  fun,  exciting,  difficult -to  - 
win,  and  challenging.  The  fantasy  simu¬ 
lation  contains  hidden  monsters,  giant 
spiders,  a  sacred  tomb  with  jewels  and 
a  magic  sword,  magic  arrows,  a  bow,  a 
regular  sword,  and  commands  that  help 
you  in  your  adventure  through  the  maze 
of  tunnels.  You  can  listen  for  movement 
of  the  hidden  creatures.  You  can  wait  to 
see  how  the  monsters  are  going  to  pos¬ 
ition  themselves,  once  they  appear.  You 
can  brace  yourself  before  entering  a  con¬ 
flict.  Bracing  increases  your  probability 
of  winning  a  battle. 

All  of  this  action  is  graphically  displayed 
on  the  screen.  The  full  maze  is  always  in 
view,  and  you  know  where  the  tomb  is 
located.  The  problem  is  to  get  there 
safely,  past  the  many  hidden  beast/ 
guardians  of  the  tomb.  Once  there,  you 
are  still  not  finished  with  the  game.  The 
monsters,  sensing  that  you  have  entered 
the  sacred  tomb,  begin  a  race  to  surround 
you  to  prevent  your  escape.  Your  magic 
sword,  a  treasure  from  the  tomb,  gives 
you  some  leverage  as  you  battle  your  way 
out. 

The  game  is  well -documented,  and  there 
is  an  interesting  background  story  related 
to  the  action  on  the  screen.  The  action  is 
fast-paced;  the  game  easy  to  play  in 
terms  of  getting  started  with  it. 


Up  to  this  point,  I  have  only  said  that 
kids  like  to  play  Swordquest.  1  don  t 
want  to  leave  a  false  impression.  Adults 
are  also  captured  by  the  simulation. They 
spend  as  much  time  with  the  game  as  the 
kids,  if  the  kids  will  let  them  near  the 
computer. 

Swordquest  is  currently  available  only  tor 
the  PET,  It  would  be  great  to  have  this 
game  on  some  of  the  other  computers. 
But,  even  if  you  don't  own  a  PET,  you 
still  may  want  to  order  this  game,  find  a 
friend  with  a  PET,  and  both  of  you  spend 
a  lot  of  enjoyable  time  in  the  world  of 
Swordquest . 

Reviewed  by  Ramon  Zamora 

. •  -  -»•  s-  & 

WHAT  IS  A  COMPUTER? 

By  Marion  Ball 
Houghton  Mifflin  Co.,  1972 
(1978  impression) 


The  book  also  includes  a  glossary  and  an 
excellent  index,  making  it  easy  find 
answers  to  specific  questions. 

If  you  are  a  computer  addict  and  have  a 
son  or  daughter  interested  in  computers, 
or  if  you  work  with  youngsters  and 
would  like  to  introduce  them  to 
computers,  or  if  you  yourself  are  a 
computer  novice,  What  Is  a  Computer 
is  worth  your  attention. 

Reviewed  by  Louisa  Jartz 
North  Canton,  Ohio 

Louisa  Jartz  is  a  former  children ’s  librar¬ 
ian  and  secretary  of  the  Qeveland  Digital 
Group,  the  local  hobbyists’ club. 

MELISSA  &  JOHN  & 

THE  MAGIC  MACHINE 

by  T.  J.  Cohen  &  J.  H.  Bray 

Byte  Publications,  Inc.,  70  Main  Street, 

Peterborough,  NH  03458. 

$2.00, 15  pages/crayons. 


Computers  and  children  are  natural, 
companions  in  the  age  of  electronic 
marvels.  It  is  adults  who  complain  that 
computers  are  too  technical,  not  children. 

Then,  where  are  the  books  for  young 
people?  Where  are  the  books  that  will 
zoom  kids  into  the  computer  age,  that 
will  help  make  computer  addicts  out  of 
them?  One  such  book  is  What  Is  a 
Computer?  by  Marion  J.  Bail. 

This  book  is  not  only  an  excellent  intro¬ 
duction  to  computers  for  children,  it  is 
also  good  for  the  aspiring  adult  hobbyist. 

It  is  simple  without  being  simplistic, 
informative  without  being  wordy,  and 
surprisingly  comprehensive . 

Marion  J.  Ball  is  assistant  director  of 
Medical  Computer  Activity  at  Temple 
University  Health  Sciences  Center.  Mrs. 
Ball  has  previously  taught  in  the  Lexing¬ 
ton,  Kentucky,  public  school  system  and 
at  the  University  of  Kentucky.  She  has 
also  written  numerous  articles  and 
lectured  on  computer  applications  in 
medicine , 

The  text  is  easy -to -understand,  although 
no  talking  down  to  children  is  done.  For 
example:  “Digital  computers  solve 

problems  by  counting  numbers.  They  can 
add,  subtract,  multiply  and  divide  ...  A 
digital  computer  can  also  compare  two 
numbers  to  find  out  which  is  greater  or  if 
they  are  equal.” 


I  think  the  book  is  enjoyable. 

Wait  a  minute.  That’s  what  all  book  re¬ 
views  say.  This  is  going  to  be  the  honest - 
to -goodness  truth.  You  may  kill  me,  but 
this  is  the  truth.  Here  goes. 

I  think  the  book  is  enjoyable. 

It  is  quite  unlike  any  other  coloring  book 
I  have  seen.  And  I’ve  seen  quite  a  few, 
since  most  coloring  books  were  made  m 
the  seventies,  and  that's  when  l  was  a  kid. 
(And  I  stHl  am,) 

Everyone  is  slightly  confused  about  “The 
Magic  Machine,"  except  Dad.  He  knows 
all  about  computers  and  is  going  to  get 
one. 

This  charming  (no,  that’s  not  quite  right) 
different  and  nice  coloring  book  is 
definitely  worth  the  $2.00  price.  It 
basically  is  16  pages  of  coloring  book  and 
six  Noah’s  ark  crayons.  I  think  it  would 
be  a  good  coloring  book  for  ages  three  to 
six.  It  is  not  very  informative,  but  it  can 
make  a  child  ask  questions.  Who  knows? 
Maybe  your  child  will  become  a  famous 
computer  person* 

As  I  said  before,  it  is  quite  unlike  any 
other  coloring  book.  It  is  not  your  typical 
Snow  White  story.  And  that  is  final! 

Reviewed  by  Rachel  Wasserman,  Age  9 
Palo  Alto,  California 
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PEOPLE'S  COMPUTER  COMPANY  NEWSPAPER 

'The  oldest  personal  computing  periodical" 

Launchpad  for  Da  Dobb's  Journal 
Original  publication  of  the  walk-in  Computer  Center! 
Outrageous  predecessor  to  the  magazine  you  now  hold  in  your  hands! 
The  Newspaper  was  a  wild  idea  come  true,  a  seed  still  prospering* 
Computers  can  be  demystified;  they  can  be  for  people. 

SPECIAL  OFFER 

- - 


All  12  available  back  issues  of  PEOPLE'S  COMPUTER  COMPANY  NEWSPAPER  for  only  $15.  Over  1/3  off  regular  price. 


People's  Computer  Company  Newspaper 

Single  issue  price  ;  U.S.  $2.00,  Foreign  $2.50 

Vol.  1  (-731  #  3 

Vol.  3  (’74  -6)  #  1,4 

Vol.  4  t’75-61  #  3, 4,5,6 

Vol,  5  (’76-7)  #  1,2,3 ,4 ,6 

Quantities  ere  limited.  This  offer  good  until  12/30/79  only. 

□  Check  here  for  special  offer  ,  or  circle  your  choices. 

Please  print  plainly: 

NAME _  _ _ 

ADDRESS. _ _ _ 

CITY/STATE  _ _ 

ZIP  _ _ 


My  payment  of  $_ 


COUNTRY 


is  enclosed 


NOTE:  All  hack  issue  orders  must  be  prepaid.  Payments  must  be 
in  U.S.$  drawn  on  a  U.3.  bank. 


OTHER  MAGAZINES  AVAILABLE 

AT  THE  BACK  ISSUE  PRICES  BELOW  (Circle  your  choices.! 
People's  Computers  (formerly  PCC  Newspaper) 


Vol.  5  ('771  #6 

U.S.& 
Territories 
$2.50  ea. 

Foreign  by 
Surface  mail 
$3.00  ea. 

Vol.  6  (77*8)  #  1 ,2,3 ,4 ,5 

if 

ff 

Vol.  7  (’78)  #1,2 

ff 

It 

Vol.  7  ('781  #3 

$3.00  ea. 

$3.50  ea. 

Recreational  Computing 

Vol.  7  ('791  #4,5,6 

£3.00  ea. 

$3.50  ea. 

Vol.  8  ('791  #1 

If 

HIGHLIGHTS  OF  PCC  NEWSPAPERS 

Vol.  1  #  3  ZlNGO/"Going  to  Bid'VHow  to  Buy  an  Edusystem/ 
BASIC  MUSIC /CHOMP 

Vol.  3  #  1  A  Fantasy  of  Future  Forms/  Low-Cost  Home  School 
Microprocessor  system*/  I NCHWOR  M/MAZE/  Analysis  of  Teaser/ 
Computer  Illiteracy  Problem  by  Peter  Lykos 

Vol.  3  #4  Build  your  own  BASIC/Mysterious  RND/More  INCH- 
WORM/  Computers  &  Art/BIOSIN  Son  of  Hardware 
Vol.  4  #  3  NUMBER /Tiny  8  ASIC/Analog  to  Digital  Conversion/ 
Minuet  in  G  Major 

Vol.  4  #4  Space  Games/Tiny  BASIC/Soloworks/DIDDLE/  STTR/ 
More  Music 

Vol.  4  #  6  Games  for  the  Pocket  Calculator/SQUARES/Make 
Believe  Computen/STRTRK/Huntington  Computer  Project 
Vol.  4  #  6  B  i  o  feed  bee  k/POU  N  C  E/  -  We '  re  Building  Our  Own 
Computer'VProgrammer’s  Toolbox/  CCC/TV  as  Terminal  and 
Game  Center 

Vol.  5  #  1  Low  Cost  Software/Tiny  BASIC,  Tiny  Trek/  Your 
Brain  is  a  Hologram 

Vol.  5  #2  Dungeons  &  Dragons/ HATS/ One  on  One/P  LA  NETS/ 
The  Positive  of  Power  Thinking 

Vol.  5  #  3  STORY/SNAKE /Mom  Build  Your  Own  Computers/ 
Introducing  PILOT/FROGS 

Vol.  5  #4  REVERSE/Roboti/Tiny  PILOT/Space  8t  Computers/ 
Conversational  Programming 

Vol.  5  #5  Z-80  PI  LOT/6602  Assembly  Programming/Tiny  BASIC 
for  Beginners 

Please  send  in  this  form  or  facsimile  to:  People's  Computer  Co.# 
1263  El  Camino  Reel.  Box  E,  Menlo  Park  CA  94025. 

Only  the  issues  listed  hem  are  available.  Price  includes  issue, 
handling,  and  shipment  by  second  class  or  foreign  surface  mail. 
Within  the  U.S.,  please  allow  6-9  weeks  to  process  your  order 
second  class.  Outside  the  U.S.,  surface  mail  can  take  2-4  months. 
For  faster  service  (U.S.  only}  add  $,50  per  Issue  requested  and  well 
ship  UPS.  Outside  the  U.S..  add  $1,50  per  issue  requested  for 
airmail  shipment. 
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PT  7  :  REWARDING  A  SUCCESSFUL  GUESS 


The  simple  open  (in  line)  subroutine  in  tines  200-290  rewards  e 
player  who  has  Just  won  a  guessing  game  on  the  TRS  80.  It  fids 
the  screen  with  about  100  stars  ( “),  then  tells  how  many  guesses 
it  took,  then  asks  if  the  player  wants  to  play  again. 

We  show  the  reward  used  with  a  modified  version  of  PT4  : 
PRINT  @  SCROLLING  (/?C,  Jul-Aug  1979),  We  have  added  a 
guess  counter  (NPT)  to  that  program* 


100  REM  ***  PROGRAMMER'S  TOOLBOX  (TM)  NUMBER  7 
110  REM  ***  RECREATIONAL  COMPUTING,  SEP/OCT  1979 

120  CLS 

130  X  ^  RND(lOO) 

135  NPT  -  0 

1 40  PR  I NT£832  T  "I'M  THINKING  OF  A  NUMBER  FROM  l  TO  100" 

150  PRINT#960f  "GUESS  MV  NUMBER" ;  :  INPUT  G 
155  NPT  ■  NPT  +  1 

160  IF  G<X  THEN  PRINT  %  89$  +  32,  "TRY  BIGGER"  :  GOTO  150 

170  IF  G>X  THEN  PRINT  %  898  +  32,  "TRY  SMALLER"  iGOTO  1 50 

200  REM  ***  PROGRAMMER'S  TOOLBOX  (TM)  NUMBER  7 
210  REM  ***  RECREATIONAL  COMPUTING,  SEP-OCT  1979 
220  CLS 

230  FOR  APT  =  1  TO  100 
240  PRl NT§RND(  1 023) »  ; 

250  NEXT  APT 

260  PRI NT@409 ,  "THAT'S  ITIII*' 

270  PRINTP531 1  "YOU  GOT  IT  IN"  NPT  "GUESSES/1 

280  PRINT§657,  "TO  PLAY  AGAIN,  PRESS  'ENTER'" 

290  IF  INKEYS  -  11,1  THEN  290  ELSE  120 


Programmer’s 


BY  EVERYBODY 


In  VoL  1#  No.  3  of  PCt  1973,  Marc  LeBrun  began  a  column  that 
provided  routines  that  could  be  used  as  part  of  a  "toolbox'*  of 
computer  skills*  We  revived  that  column  In  the  May* June  1979 
issue  of  ffC, 

Hare  are  some  more  "tools"  for  the  Toolbox.  Hope  you  can  use 
these  new  programs*  If  you  have  Ideas  for  useful  routines,  write 
them  down  and  send  them  to  us.  —HZ 


The  messages  printed  by  lines  260,  270,  end  280  are  approx  I* 
mately  centered  on  die  screen  and  double  spaced  to  make  them 
readable.  The  stars  and  the  messages  stay  on  the  screen  until 
someone  presses  the  ENTER  key,  or  most  any  other  key*  Then, 
the  game  starts  again. 

You  can  modify  th«  open  subroutine  to  e  closed  subroutine, 
called  by  0  GOSUB*  Simply  change  line  290  to 


290  IF  I MKEY$  -  ""  THEN  290  ELSE  RETURN 

~n - zr 

If  you  do  this,  be  sure  to  provide  the  value  of  NPT  in  your  main 
program.  And,  If  you  relocate  the  subroutine  by  changing  the 
line  numbers,  remember  that  our  line  290  refers  to  itself* 


290  IF  INKEYS  -  ",!  THEN  290  ELSE  RETURN 


If  you  relocate  the  routine,  use  die  same  lino  number  In  both 
places. 

Although  we  show  the  subroutine  in  use  with  a  number  guessing 
game,  it  is  suitable  for  most  any  guessing  game. 

BY  THE  DRAGON 


PT  8  :  ANOTHER  STRING  SQUEEZE 

This  subroutine  (lines  900-1040)  removes  ell  characters  from 
APT$,  except  those  characters  which  are  in  BPT$,  defined  in 
line  920* 


100  REM  ***  TEST  PROGRAMMER'S  TOOLBOX  #  8 
110  CLS 

120  INPUT  APTS 
130  G0SUB  920 
140  PRINT  APT? 

150  PRINT 
160  GOTO  120 

900  REM  ***  PROGRAMMER'S  TOOLBOX  H  8 

910  REM  ***  RECREATIONAL  COMPUTING,  SEP-OCT  1979 

920  BPTS  *  "01234567390" 

930  BPT  -  LEN(BPT$) 

940  APT  -  LEN(APT$) 

950  IF  APT  -  0  OR  BPT  -  0  THEN  RETURN 
96G  2PT$  -  "" 

970  FOR  JPT  =  1  TO  APT 

980  OPTS  -  Ml DS (APTS,  JPT,  T) 

990  FOR  KPT  *  1  TO  BPT 
1000  VPTS  *  M1D${6PT$t  KPT,  1} 

1010  IF  UPTS  -  VPTS  THEN  UPT$  =*  ZPT$  +  UPT$  :  GOTO  1030 
1020  NEXT  KPT 
1030  NEXT  JPT 

1040  APTS  -  2PT$  *  ZFTS  -  111  ;  RETURN 
9999  END 
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mftTM*BASirf  Look  ■?  (!fobsbly  vrork  on  most  Micro- 

son  HA&IC,  Look  at  line  920,  In  this  example. 


BPTS  -  "01234567890" 


T0 12311567890 
Or  23456 7890 

T3  0  6 
306 

TA6C0EFGHIJKL 
□ 

?Z3:SXB#7 

2307 


JSTJJ  Itr-:  i!  D0  ^  *»  how  it  works  7  If  not, 

planatlon  IfT  **  961  “Ver8’  lettB«'  will  publish  an  ex- 
*' °f  thlB  ,or  8nV  Pr°9  tern  mar's  Toolbox  tool.  If  wa  get 

«  -  -  -* — - — - . 

BY  THE  DRAGON 


PT  9  :  GETTING  AROUND  "EXTRA  IGNORED" 

Here  I.  a  routine  that  works  on  both  the  Apple  and  the  PET 

L  O  ”  'nPUt  H  Mring  °f  d9ta  th*  contains  commas 

®"  L  °n  mOSt  machine*'  when  "  comma  or  colon  ft  en¬ 

countered  during  an  INPUT,  the  rest  of  the  input  line  is  thrown 
away,  end  the  messege  "EXTRA  IGNORED"  is  printed  This 
routine  solves  that  problem.  For  the  Apple,  chenge  line  40  tor 

tO  GET  GS 


10  REM**ft  PROGRAMMER'S  TOOLBOX  #4 

3  SENSS  JS1E  i™  — 5  **■  ««« 

40  GET  GS;  IF  GS-""  THEN  40 
50  PRINT  GS;:  IF  G$-CHft$fl3) 

TH£N  70 

60  A$=A$  +  GS  ;  G0  T0  40 
70  PRINT  A 
80  END 


Note:  Line  60  is  used  here  to  verify  input.  If  yOU  make  a  sub. 
~  out  of  this,  delete  line  50.  Also,  you  may  not  wet 

BY  JOHN  W.  DAVISON 


|  AhaJ  You  people  who  play  fantasy 
adventure  games  know  about  3D6i 


PT  10:  CARD  SHUFFLE 

Considering  some  of  the  strange  card  shuffling  routines  I've  seen 
this  routine  deserves  e  wider  distribution.  I  first  sew  t7n 

fl«*  of  ?AS,C  Sty*  by  John  M.  Nevison.  ittttn 

to7,Tpen^tuiZ.rS“,  80  0rbitrBrV  PermUtati°n  0f  *• 

Assumptions: 

b)  A(1*52}  is  the  array  containing  the  cards* 

inclusive^  a  random  '"teger  between  x  &  y 

e)  All  the  cards  ere  to  be  shuffled. 


10  REM  *<>*  PROGRAMMER'S  TOOLBOX  *  in 
20  REM  ***  CARD  SHUFFLE  ROUTINE 
30  DIM  A {52) 

40  FOR  1—52  TO  2  STEP  -| 

50  J-RND(I.I) 

60  T»A ( I ) 

70  A(l)=A<J) 

80  A{j}=T 

90  NEXT  I 


L^M  t.r0Utt  "  "0t  WrlttSn  ,or  Bny  Particular  machine. 

vnu  h  ^  n@ed  ,0  **  Ch8n9ed  10  whatever  RNO  function  call 
you  have  on  your  computer. 

BY  ERYK  VERSHEN 


Reader  Service 

mooving? 


IMPORTANT 

Pteew  advise  us  of  address  changes  60  days  in  ad- 

at  L'"1'  UM  m 


Nan*  Ipteas*  print  new  mforma, ion) 


Address 


City 


Stm  T — r — 

Zip  Code 

Country  ~ 

Bssme 

P.O.  Box  E,  1263  El  Camino,  Menlo  Park.  CA  94075 
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by  chuck  carpenter 

Chuck  notes  in  his  letter  with  this  article  that  he  lives  in 
25Tk  to  !•  •  totor  of  to  Ato'  Coto  o  f  Mto 
Chuck  a  frequent  contributor  to  the  magazine,  is  highly 
ZowiJgeabie  on  the  Apple.  Now  you  get  the  benefit  of 
his  knowledge  as  he  leads  you  through  an  introductory  two- 
pan  series  on  how  to  use  the  machine  language  capabilities 

o  f  your  Apple, 

The  only  questions  left  unanswered  are: 

Isn't  Dallas  a  TV  show? 
and 

Where  in  the  world  is  Carrollton?  -  Hz 

Built  into  your  Apple  II  is  a  powerful  assembly  language 

rtsHHitu  To  oet  a  qood  foundation  for  pro- 
programming  capability,  lo  gei  a  gow  *  , 

□ramming  in  assembly  language,  an  understanding  o 

Apple  IPs  fundamental  operation  is  helpful.  Every  ‘  ' 

because  of  internal  design  structure,  is  related  to 

The  iob  of  converting  the  things  you  do  to  things  the  com 

puter  can  understand,  is  handled  by  the  System  Womfor 

Apple  II  uses  a  6502  Microprocessor  as  the  central  control 

IT  Co - -  with  to  to  ^ 

with  a  machine  language  unique  to  the  6502.  Let  s  iook 
memory,  monitor  and  machine  language  separately. 


A  total  of  65536  memory  cells  are  possible  in  the  Apple  II. 
If  you  plugged  16k  memory  chips  into  all  the  awnlabte  ex¬ 
pansion  sockets,  that's  how  much  you  would  have.  Not 
S  these  memory  cells  are  available  for  you  to  use.  Some  are 
already  in  use  by  built-in  computer  programs. 

Two  Kinds  of  Memory 

Your  computer  uses  two  kinds  of  internal  memory.  One  is 
called  RAM,  the  other  is  called  ROM.  tExternal  memory 
called  tape  or  disk,  but  that's  another  story  )  RA^J™ 
for  random  access  memory  and  ROM  stands  for  read  y 
memory  Both  are  actually  random  access.  That  is,  a  memory 
cell  can  be  selected  and  accessed  directly.  It  is  not  necessary 


64 


RECREATIONAL  COMPUTING 


to  pass  through  each  memory  cell  in  sequence  to  get  to  a 
certain  one.  With  RAM,  you  can  read  from  a  memory  cell 
or  write  to  it.  (RAM  is  also  known  as  read/write  memory.) 
You  can  only  read  from  a  ROM  memory  cell. 

When  power  is  turned  off,  anything  previously  stored  in  RAM 
is  lost.  When  power  is  turned  on,  you  have  to  restore  programs 
in  RAM.  Tape  players  or  a  disk  are  the  usual  Input  sources 
for  the  Apple  II.  Changeable  memory,  like  the  Apple  II  RAM, 
is  called  volatile  memory,  ROM  on  the  other  hand  is  non¬ 
volatile.  It  is  always  there  when  power  is  turned  on.  There  is 
another  characteristic  of  Apple  II  RAM.  The  type  used  is 
known  as  dynamic  memory.  Many  other  computing  systems 
use  static  memory  chips.  These  require  a  lot  more  operating 
power.  The  dynamic  chips  use  far  less  power  but  require  a 
technique  called  refreshing.  Once  a  static  memory  cell  is 
activated  it  stays  in  a  particular  condition  until  specifically 
changed  or  power  is  lost.  Once  a  dynamic  cell  is  activated 
it  has  to  be  refreshed  periodically.  Otherwise,  the  information 
in  the  memory  cell  fades  away.  (A  similar  condition  occurs 
on  your  video  screen.  If  the  dots  on  the  video  screen  weren't 
refreshed,  the  picture  would  fade  out.  It  happens  so  fast 
though,  that  you  can't  see  it  happening.) 

Cells  and  Words  (Bytes  and  Bits) 

Memory  cells  in  the  Apple  II  can  be  called  words  because 
each  cell  can  store  some  kind  of  data  or  instruction.  It  is  also 
correct  to  call  each  memory  cell  or  word  a  byte .  Each  byte 
is  made  up  of  Bbits, 


76.J43210 

□  □□□□□□  D^bit 

" - v' - 

byte 


A  bit  gets  it's  name  from  the  words  S/nary  digiT".  Binary 
means  consisting  of  two  parts.  In  a  computer,  a  bit  has  two 
states,  on  and  off .  Conventions  of  definition  provide  a  tech' 
nique  for  describing  the  on  and  off  states.  A  't'  is  used  for 
the  on  state,  and  a  '0'  is  used  for  the  off  state.  The  state  of 
each  bit  is  used  to  determine  the  value  of  a  binary  word  or 
byte.  From  now  on  we  will  use  byte  to  mean  an  8  bit  binary 
word. 


Because  we  are  using  two  states  to  represent  each  bit,  a  value 
based  on  a  power  of  two  can  be  assigned  to  each  bit.  Notice 
that  the  value  of  the  binary  number  is  0  when  all  bits  are  in 
the  off  state.  This  is  important!  The  first  number  in  the 
number  scale  is  0.  The  first  address  in  Apple  II  memory  is 
located  at  0000  (4  nybbles  having  zero  value).  To  find  the 
value  of  a  binary  word,  add  the  powers  of  two  (called  weight¬ 
ing)  for  each  bit  that  is  a  1'  (on). 


Binary  1  1  1  1  1  0  1  0  0  0  0  0  G  1  0  I 

Weight  215 - 2° 

Decimal  Sum  of  each  value  for  each  1  bit. 

*  2i3+2l\213+212+2il+29+22^0 

=  3Z 768+16324+61 92+4096+2046+512+4+1 

*  64005 


If  all  the  bits  were  Jon'  the  calculation  would  have  been 
216  —  1  =  65535.  This  is  the  address  of  the  highest  byte  in 
memory.  Notice  that  the  values  increase  from  right  (least 
significant)  to  left  (most  significant).  This  notation  is  also 
conventional  and  is  used  to  determine  the  decimal  equivalent 
of  bytes  and  nybbles  too. 

There  are  many  books  that  explain  computer  mathematics. 
We  have  covered  enough  for  this  article.  A  little  discussion 
of  binary  and  decimal  numbers  will  be  found  in  the  next 
section. 


How  Many  Bytes? 

To  make  a  number  large  enough  for  addressing  all  65536 
memory  locations  takes  16  bits.  Two  bytes  are  needed  to  do 
this  in  the  Apple  II.  Internal  to  the  6502  microprocessor  are 
several  RAM  locations  called  registers .  One  of  these  is  a  16 
bit  (two  byte)  register  used  to  address  all  the  memory  loca¬ 
tions.  Also,  it  is  conventional  to  divide  each  byte  into  two 
4  bit  nybbles . 


8  bits  4  bits  4  bits 

□  □□□  O  □  □  □  O  □  □  □  □□□□ 

byte  nybble  nybble  (tuia-Yum) 


Apple's  System  Monitor  is  located  permanently  in  ROM.  Your 
computer  would  not  be  able  to  do  any  of  its  computing  func¬ 
tions  without  the  monitor.  The  monitor  is  a  collection  of 
programs  (written  in  6502  machine  language)  provided  by  the 
computer  designers.  If  you  consider  everything  your  computer 
does,  you  can  picture  the  tasks  performed  by  the  monitor. 
Before  we  continue  discussing  the  System  Monitor,  an  under* 
standing  of  another  number  system  is  needed. 

Hexadecimal 

Memory  address  identification  and  6502  machine  language 
uses  a  numbering  system  called  hexadecimal.  Binary  numbers 
are  part  of  a  base  2  system.  Our  daily  activity  uses  the  base  10 
decimal  system.  Hexadecimal  numbers  are  based  on  16  digits. 
Thus  it  is  a  base  16  number  system  and  is  represented  in 
Table  1. 
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n*c.  imal 

HEX 

Q 

Rinarv 

oooo 

0 

0001 

1 

X 

2 

0010 

2 

0011 

l 

J 

4 

0100 

£ 

0101 

f 

J 

6 

0110 

6 

0111 

7 

( 

8 

1000 

8 

Q 

1001 

9 

7 

t 

1010 

10 

n 

B 

r 

1011 

11 

1100 

12 

D 

1101 

13 

m 

E 

if 

1110 

1111 

15 

r 

Table  1 

Letters  are  used  to  represent  numbers  iu  10  is.  «>• 

a  bit  confusing,  but  only  on.  character _,s  n=.d dm 
hexadecimal  to  represent  numbers  up  to  15.  * 

i,  you  «™t  to  determine  tite  HEX  ..lues  for  ,b.  address  used 
in  the  earlier  example,  it  would  look  like  t  is- 


Binary  -  Uli  1010  0000  0101 

HEX  -  F  A 
Decimal-  64005 

So,  the  decimal  address  64005  I.  HE*  ad*e“  ^heX  I 
s  is  used  in  front  of  the  number  to  indicate  that  it  is  ■) 
Use  the  values  in  table  1  to  convert  each  nybble  in  binary 
*s  HEX  equivalent.  Note  that  it  takes  4  digits  in  HEX, 
decimal,  and  16  in  binary  to  express  the  same  number. 

What  Does  K  Mean? 

Apple  I!  monitor  programs  begin  at address  SFBOOor decimal 
63487  If  you  subtract  this  value  from  the  highest  address 
65535  you  will  get  2048.  This  is  the  number  of  bytes  used by 
fhe  Monitor  ROM.  In  HEX,  2048  is  equal  to  $800  and  is  called 
2K  bytes  of  memory.  (The  term  'K'  refers  to  a  quantity  of 
1024  memory  words  or  bytes.)  This  use  of  'K'  comes  from 
^entihe  notation  where  a  quantity  of  1000  is  known  as  a 
'Kilo - '  Since  memory  is  numbered  in  binary,  th®  nea"es 
quantity  is  1024.  Thus  a  65,535  byte  memory  is  called  a  64K 

(64  x  1024  =  65,535)  memory. 


various  memory  ranges  are  used  within  the  computer.)  By  now 
yo^know  the  monitor  is  located  between  addresses  $F800 
and  $FFEE,  and  that  the  monitor  programs  a 
Let's  see  what  some  of  the  monitor  programs  do. 

•  When  you  turn  power  on  and  press  RESET  you  9et  a 
"beep"  and  a  prompting  character  on  the  screen,  om 

.  »V  combination  of  key.,  the  .ague™. 

.  If  a,heVk”yst™ke‘  haTw  meaning  (are  valid  »mmandS| 

.  The^monitor^esponds  If  .hay  ara  no,  valid  «.  You  get  a 
"beep"  and  another  prompt  telling  you  to  o  i 
-  Monitor  programs  mad  a  cassatta  tape  program  and  load  the 

.  *■»  «*»  . . .  bv 

.  £To"'oT“d°ao  output  on  the  screen  is  a  Monitor  ta*. 

.  fh.  monitor  also  ganaratas  Ota  16  colors  usad  wtth  M 
re  sol  u  ti  o  n  graph  i  cs « 

There  are  many  other  computing  tasks  “rried  o^  by 
tern  monitor.  But  this  should  be  enough  to  po.nt  out 
portance  of  this  2K  section  of  memory. 

Other  memory  usas  Mud.  the  Integer  BASIC  MrpMrjnd 

too!rAddressesrfor0BAsIc^nd8thePutlpities  start  at  SEOOO  and 

Each  connector  is  assigned  a  range  of  memory.  Y 
an  expansion  card,  such  as  a  printer  board  or  clock  into  o 
of  S  connectors,  it  operates  from  the  assigned  range  of 
memory  for  the  slot  It  is  in.  (Applications  des"lb'd  ' 

expansion. 

Work  space  for  various  computing  functions  is  signed  to 
RAM  in  low  memory.  Also,  the  area  of  memory  that  repres- 

?e  u^°"pa“  >? 

next  section* 

Hope  you  liked  this  introductory  section.  Chuck  will  be  beck 
next  issue  with  the  third  M,  machine  language  He  will  lead 
you  through  the  magic  mystery  tour  of  machine  mnemomes 
and  other  marvelous  machinations.  See  you  t  . 


™i,=le,o 

s-  s*  -  - 

66  RECREATIONAL  COMPUTING 


NEW  HAMPSHIRE’S 
INTREPID  HOBBYIST 


a 


Dear  ComP«>lA  freak  $  * 

I  read  Dr.  Dobb  i  and  Recreational  Computing,  and 
other  than  the  Heath  Users’  Group,  you  are  my  only 
contact  with  the  real  computer  world*  1  have  saved  my 
pennies  and  own  a  Heath  H8*  It  has  16K  of  memory 
and  has  both  serial  and  parallel  interface  cards  but  as 
yet  no  terminal.  1  have  spent  time  and  money  trying  to 
interface  various  cards  to  my  system  but  have  had  little 
luck. 

Two  years  ago,  I  had  never  played  Star  Trek  or  even  sat 
at  a  terminal*  My  contact  with  computers  seemed 
limited  to  bank  statements  and  visits  to  science  mu¬ 
seums*  I  was,  however,  an  electronics  technician  and 
realized  that  unless  I  got  involved  soon,  I  would  be  un¬ 
employable  as  the  new  technology  came  in*  Since  I  am 
legally  blind,  I  have  a  hard  time  getting  work  anyway* 

When  I  finally  got  into  computers,  I  was  living  in  Massa¬ 
chusetts*  A  friend  bought  an  SWTPC  6800  and  had  it 
running  with  a  terminal  in  six  months*  He  promptly 
got  into  the  game  thing  and  was  soon  hooked  on  Star 
Trek*  When  1  visited  him,  I  worked  on  new  games  or  in 
changing  the  ones  he  had*  Another  friend  bought  a 
Radio  Shack  TRS-80*  He  didn’t  need  it  but  did  it  to 
keep  up  with  us.  I  wrote  my  share  of  programs  on  it 
before  I  moved. 

Recently,  1  have  had  only  my  H8  with  no  terminal  or 
printer  or  anything.  I  have  run  several  programs  using 
only  the  front  panel  and  have  learned  enough  to  use  the 
machine  as  is*  I  am  currently  working  on  a  program  for 


inventory  of  a  small  hobby  store,  using  just  the  keypad 
and  readouts,  where  an  item  number  can  be  entered 
and  quantities  read  out,  altered,  and  prices  adjusted. 
Another  function  will  allow  reading  out  the  entire  con¬ 
tents  for  end-of- the -month  inventory  and  ordering.  It 
will  have  the  ordering  status  indicated  also*  and  all  data 
will  be  stored  on  tape* 

If  it  were  not  for  the  games  I  played  on  other  systems, 
I  would  not  be  able  to  learn  as  fast  as  I  have*  For  some 
of  us,  games  do  have  an  important  purpose,  just  as 
reading  science  fiction  does*  They  make  things  we  bear 
a  little  easier*  If  zapping  fClingons  is  a  release  and  turns 
you  on,  fine.  If  piloting  a  starship  in  imaginary  space 
replaces  my  lack  of  ability  in  driving  a  car,  great* 

As  I  read  over  what  I  have  written,  I  again  come  back  to 
the  fact  that  I  don’t  have  a  terminal  for  the  computer* 
Perhaps  someone  has  a  spare  terminal  they  could  donate, 
or  perhaps  some  company  wants  to  field  test  a  unit?  If  I 
could  get  a  terminal,  I  might  come  up  with  some  very- 
challenging  games,  since  I  have  plenty  of  time  to  spend 
on  programming.  Perhaps  I  could  get  a  disk  system  next 
year* 

As  a  last  note,  please  keep  up  the  good  work  and  con¬ 
tinue  to  give  us  the  best  magazines,  I  like  the  changes 
and  enjoy  every  issue. 


Yours  truly, 

Robert  Howarth,  Jr. 


RFD  #1  Box  36 
Lisbon*  N*H,  03585 
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Announcements 

Hardu/are  Softi/nare 


Oust  Drive  for  TRS-80.  Parcom 
Data  Company  is  now  selling  a 
dual  disk  drive  for  the  TRS-80, 
Called  the  TFD-10G0,  the  unit 
provides  800 K  bytes  of  on-line 
storage;  two  systems  (four  drives) 
may  be  used  to  provide  1»SM 
bytes  on  line.  The  MICRODOS 
operating  system,  which  replaces 
TRSDQS,  provides  full  random 
access  capability  and  requires 
less  than  7K  of  RAM,  MICRO 
DOS  is  supplied  on  a  system  dis¬ 
kette  that  includes  BASIC  pro¬ 
gram  examples.  The  TFD-1000, 
complete  with  cable,  operating 
system,  PAM  card  and  documen¬ 
tation,  costs  $2,495,  For  further 
information,  contact  Per com  Data 
Company,  211  N,  Kirby,  Garland, 
Texas  75042,  (214}  272-3421. 

Light  Pens,  The  3G  Company  of 
Gaston,  Oregon,  offers  light  pens 
for  both  the  TRS-80  and  the  PET 
2001,  Since  the  light  pens  allow 
direct  interaction  with  infor¬ 
mation  on  the  CRT  screen,  they 
make  programs  accessible  to  per- 
$  on$  with  n  o  com  p  u  w  r  back  - 
ground.  They  can  also  be  used  to 
create  a  number  of  unique  games 
and  special  graphics  effects. 

The  light  pen  for  the  PET  2001 
comes  completely  assembled  and 
with  a  sample  program.  It  sells  for 
$29.95  (plus  $1.50  for  postage 
and  handling  within  the  U.S.; 
$6  for  foreign  orders).  The  light 
pen  for  the  TRS-80  costs  $34.95. 
For  more  information  on  either 
product,  contact  3G  Company, 
Route  3,  Box  28A,  Gaston, 
Oregon  97119,  {503}  662-4492. 

Fulhilzad  Floppy.  An  eight-inch 
floppy  disk  drive  is  now  available 
for  the  TRS-80,  The  new  product 
from  Parasitic  Engineering  is 
called  Maxi -Disk,  Used  with  an 
option  called  the  Shufflebosrd,  it 
can  run  CP/M  and  TRS-DOS  at 
the  same  time.  (This  piggy -back 
board  plugs  into  the  Z-80  socket 
and  remaps  memory  under  soft¬ 
ware  control,  allowing  CP/M  to 
run  in  its  standard  location  while 


the  lower  16K  of  memory  are 
shuffled  to  high  memory  and  all 
other  locations  are  shuffled  down) 
Parasitic  points  out  that  this  de¬ 
velopment  makes  the  large  library 
of  CP/M  programs  available  to  the 
TRS-80  user. 

The  full-sized  floppy  disk  with 
controller  board  sells  for  $995. 
The  Shuffieboard  option,  provided 
with  CP/M  on  an  eight-inch  disk, 
sells  for  $245,  For  further  infor¬ 
mation,  contact  Parasitic  Engi¬ 
neering,  P,Q.  Box  6314,  Albany, 
CA  94706.  (415)  527-6133. 

Card  Reader.  Chatsworth  Data 
Corporation  has  released  a  mark 
sense  card  reader  designed  for 
test  scoring  on  personal  com¬ 
puters.  Called  the  MR -500,  the 
unit  comes  with  a  test  scoring 
program  which  does  item  anal¬ 
ysis,  plots  histograms  of  test 
score  distribution,  provides  the 
mean  and  standard  deviation,  and 
gives  raw  scores,  interfaces  are 
presently  available  for  the  TRS- 
80,  Apple  U,  and  PET,  with 
others  under  development.  For 
more  information,  contact  Chats- 
worth  Date  Corporation,  20710 
Lassen  St,,  Chatsworth,  CA 
91311,(213)  341-9200. 

Micro  Printer.  The  new  Trendcom 
100  intelligent  Printer  features 
40 -character  -per-second  printing 
with  a  96 -character  set.  tt  offers 
full  line  buffering  and  bidirec¬ 
tional  look-ahead  printing;  after 
one  line  has  been  printed,  left  to 
right,  the  internal  microprocessor 


examines  the  next  line,  then 
moves  the  print  head  to  the  last 
character  of  the  line  to  be  printed 
and  prints  right  to  left.  The  5x7 
dot  matrix  provides  clear  copy  on 
white  paper.  Interfaces  are  avail¬ 
able  for  the  TRS-80,  Apple  II, 
PET,  and  Sorcerer,  The  Trendcom 
100  is  available  in  most  retail 
computer  stores  for  about  $375. 
For  more  information,  contact 
Trendcom,  484  Qakmead  Park¬ 
way,  Sunnyvale,  CA  94086.  (408} 
737-0747. 

Stringy  Floppy.  A  "stringy 
floppy"  storage  system  for  TRS- 
80  and  5WTPC  computers  has 
bean  introduced  by  Exatron  Cor¬ 
poration.  The  TRS-80  version  of 
the  system  consists  of  a  small 
freestanding  module  enclosing  the 
drive  unit,  control  electronics, 
and  firmware;  a  sealed -unit  power 
supply  for  the  AC  outlet;  and  a 
ribbon  connector  to  the  TRS-80. 
The  SWTPC  model  consists  of  a 
freestanding  drive  module,  a  con¬ 
troller  board  mounted  in  the  com¬ 
puter  motherboard,  and  a  con¬ 
necting  cable.  The  individual  con¬ 
tinuous-loop  tape  wafer,  less  than 
a  fourth  the  bulk  of  the  standard 
audio  cassette  and  holding  up  to 
40K  bytes,  is  inserted  in  the  slot 
in  the  front  of  the  drive  module. 
All  operations  are  software  con¬ 
trolled;  the  utility  programs  are 
stored  in  the  firmware.  The  TRS- 
80  unit  costs  $199,50.  For  more 
information,  contact  Exetron, 
355  Ryder  Street,  Santa  Clara, 
CA  95051  (408)  737-7111, 


8086  BASIC.  Microsoft  has  just 
released  a  new  version  of  BASIC 
for  the  8086  16- bit  mircoproces- 
sor.  According  to  Microsoft, 
SASIC -86  is  completely  lan¬ 
guage-compatible  with  the  cur¬ 
rent  release  5,0  of  standard  Micro¬ 
soft  8080  BASIC.  This  means 
users  of  8080  BASIC  can  upgrade 
to  an  8086  microprocessor  with¬ 
out  modifying  existing  programs, 
BASIC -85  is  available  in  two 
versons;  Extended  end  Stand¬ 
alone  Disk,  both  for  Intel  SBC 
86/12.  Prices  are  $350  for 
extended;  $600  for  disk.  For 
more  information,  contact  Micro¬ 
soft,  10800  NE  8th,  Suite  819, 
Bellevue.  WA  98004.  (206}  455- 
8080. 

Apple -80.  8080  programs  can 
now  be  run  on  16K  or  larger 
Apple  Ns,  thanks  to  this  8080 
simulator.  Apple -80  can  also  be 
used  as  a  design  and  debugging 
aid  in  developing  8080  software. 
According  to  its  creator,  Apple* 
80  provides  single-step,  trace,  and 
run  modes  and  executes  all  valid 
8080  op -codes.  6502  subroutines 
can  be  called  directly  from  8080 
programs,  allowing  full  access  to 
Apple  monitor  and  user*  written 
functions;  conversely,  8080  rou¬ 
tines  can  be  embedded  in  6502 
programs. 

The  Apple -80  package  Includes 
Apple -80,  a  manual,  an  8080 
program  which  demonstrates 
the  feat  u  res ,  and  an  A  pp  I  e  -  80 
reference  card.  Price  is  $20  plus 
$1.50  for  shipping  and  handling. 
(California  residents  must  add 
6%  tax.)  Order  from  Dan 
McCreary,  Box  16435-D,  San 
Diego,  CA  92116.  (7141  281- 
5758. 

Poison  Control.  A  potentially 
life-saving  program,  offering 
emergency  advice  in  the  event  of 
accidental  poisoning  in  the  home, 
is  available  on  North  Star 
Diskette.  The  package  by  Roger 
0.  Littge,  M.O.,  is  written  in 
BASIC  and  uses  word  recognition 
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IO  identify  household  substances- 
maximum  search  time  is  *jx' 
seconds.  Home  Poison  Control  is 
available  on  North  Star  Diskette 
with  manual  and  complete  source 
Mings  for  $28  or  on  a  C  BASIC 
vorcion  eight-inch  diskette  with 
manual  for  $32.  Contact  Berkeley 
Medical  Data  Associates.  P.  O. 
Box  3279,  Berkeley,  CA  94705. 

Abridged  Adventure.  Scaled - 
down  versions  of  Adventure  for 
the  H8  Heath  computer  have  been 
announced  by  Eggert  Engineering 
They  are  available  on  cassette  in 
-i4K  and  on  disk  in  16K.  "We 
took  our  32K  version  and  deleted 
two  of  the  treasures,  one  of  the 
mates,  eliminated  the  hints,  and 
used  only  the  long  description  of 
each  location.  The  remaining 

same  logic  and  |BXt  was 

unchanged,"  reports  designer 
John  Eggert.  Both  the  32K  and 
24  K  versions  are  available  on 
rasserte  (with  instructions)  for 
$16.50  each.  Non -Heath  users 
can  get  both  versions  on  8-Jevel 
binary  paper  tape,  with  modifica¬ 
tion  instructions,  for  $65  each. 

A  disk  version  has  also  been 
developed  that  will  run  under 
HDOS  on  an  H8  with  16K  of 
RAM.  Price  on  the  disk  is  also 
$16.50.  Order  from  Eggert 
Engineering,  95  Adams  Drive 
Stow,  MA  01775.  (Massachusetts' 
residents  must  add  5%  tax.) 

Video  Loom.  Weavers  can  now 
try  out  designs  quickly  and 
easily  on  a  computer  via  a  new 
Apple  II  program  called  Video 
Loom.  The  program  simulates  a 
loom  with  up  to  70  harnesses 
and  allows  the  weaver  to  choose 
the  colors,  yarn  sites,  treadling 
order,  etc.  Once  the  loom  js 
-warped"  and  the  weaving 
sequence  established.  the 
computer  weaves  a  full-color 
Picture  of  the  design;  changes  can 
be  made  in  the  pattern  before 
It  is  completed.  It  can  then  be 
saved  on  diskette.  Video  Loom 
is  available  on  a  five -inch  diskette 
for  32K  Apple  Ms.  The  price  is 
$49.95  plus  $2  for  postage  and 
handling.  Californians  should  add 
6'A%  sales  tax  ($3.25).  Contact 
Howard  Harewftr,  Systems  for 
the  Arts,  1510  Grant  Street 
Berkeley,  CA  94703. 


Satellite  Tracking.  You  can  turn 
vour  micro  into  a  satellite 
tracking  site  or  space  center  with 
three  new  programs  available 
from  Sat  Trak  International.  Writ¬ 
ten  in  BASIC,  these  programs  can 
be  used  on  Apple  Ms,  Sorcerers 
or  TRS-SOs  with  at  least  16K  of 
RAM.  The  programs  enable  the 
user  to  track  satellites  anywhere, 
locate  them  at  night  with  the 
naked  eye,  and  predict  future 
sightings.  For  more  information, 
contact  Sat  Trak  International, 
c/o  Computer! and  of  Colorado 
Springs,  4543  Templeton  Gap 
Road,  Colorado  Springs,  CO 
80909.  (303)  574-4150. 

Apple  Library,  With  the  Apple  It 
Software  Library,  Volume  I,  you 
get  an  assortment  of  16  programs 
ranging  from  games  to  teaching 
exercises  to  music  and  graphics 
demos.  The  programs  are  all  writ¬ 
ten  in  Integer  BASIC  and  come 
on  a  cassette  that  seifs  for  $14  95 
Volume  II  of  the  Apple  Software 
Library  has  similar  variety  in  its 
17  programs,  ranging  from  a  math 
test  to  computer -generated 
poetry  to  music  by  Bach.  This 
cassette  is  also  $14.95,  Order  the 
tapes  from  the  Soft -One,  315 
Dominion  Drive,  Newport  News 
VA  23602. 

Aircraft  Simulator.  For  earth- 
bound  pilots,  this  may  offer  the 
next  best  thing;  a  program  with 
engine  sound  effects,  high  reso¬ 
lution  color  graphics,  and  an 
instrument  panel  that  shows -on 
the  TV  screen  of  an  Apple  II  — 
attitude,  air  speed,  altitude,  rate 
of  climb  and  descent,  compass 
heading,  and  rate  of  turn  of  the 
ofrcraft.  The  instruments  respond 
smoothly  and  in  real  time  to  the 
keyboard  and  game  paddles  which 
control  the  "aircraft."  An  ideal 
stand-alone  program,  it  can  also 
ba  used  as  the  basis  for  more 
sophisticated  flight  simulators. 

The  program  is  written  in  both 
Integer  BASIC  and  machine  lan- 
suage  and  is  designed  to  run  on 
an  Apple  ||  with  at  ,B3St  16K  Qf 
memory.  Tape  and  instructions 
are  $8.95.  Order  from  the  Soft- 
One,  315  Dominion  Drive,  New¬ 
port  News,  VA  23602. 


Users’ 
Groups 

Northwest  PETs.  The  Northwest 
Pet  Users  Group,  based  in  Port¬ 
land,  is  trying  to  locate  PET  buffs 
in  Oregon  end  Washington.  If 
you'd  like  to  meet  with  other 
PET  folks,  contact  John  F.  Jones 
of  the  NW  Pet  Users  Group,  2134 
NE  45th  Ave„  Portland,  OR 
97213.  (503)  281  -4908. 

Honolulu  Apples.  HAUS  (Hono¬ 
lulu  Apple  Users  Society)  meets 
the  first  Monday  of  each  month 
at  the  ComputerJand  store  in 
Honolulu.  The  group  has  a  news¬ 
letter  containing  Apple  program 
ups  and  techniques,  listings,  re¬ 
views,  etc.  There  are  also  weekly 
sessions  for  learning  programming 
and  exchanging  information. 
HAUS  is  interested  in  exchanging 
news  with  other  Apple  groups. 
Contact  Bill  Mark,  98-1451 -A 
Kaahumanu  Street,  Area,  Hawaii 
96701.  (80S)  488-2026. 

British  Hobbyists.  The  North 
London  Hobby  Computer  Club 
(NLHCC)  now  has  more  than 
300  members,  making  it  one  of 
the  largest  such  groups  in  Europe. 
There  are  regular  monthly  meet¬ 
ings,  one -session  courses,  and 
four  ongoing  workshops.  The 
New  Games  workshop  has  pro¬ 
duced  significant  software,  accor¬ 
ding  to  the  NLHCC  report.  The 
club  meets  at  the  Depertment  of 
Electronic  end  Communications 
Engineering  in  the  Polytechnic  of 
North  London,  HoNoway,  Lon- 
don  N7  8DB,  Telephone  01- 
607  2789.  For  further  infor¬ 
mation,  contact  the  club  secre- 
tary  at  t he  above  address. 


Publications 

Calcuiator  Book.  A  new  12- 
Pago  illustrated  booklet  compar¬ 
ing  the  logic  systems  of  advanced 
handheld  calculators  is  available 
free  from  Hewlett-Packard,  It 
should  be  particulariy  helpful  to 
educators  teaching  calculator 
usage  as  well  as  to  calculator 
shoppers  evaluating  equipment; 
it  can  also  help  experienced  users 
better  understand  their  logic 
systems.  Advanced  Calculator 
Logic:  A  Comparative  Analysis  is 
available  by  writing  Inquiries 
Manager,  Hewlett-Packard  Com¬ 
pany,  1507  Page  Mill  Road,  Palo 
Alto,  CA  94304. 

Applesoft  II  Manual.  A  complete 
Programming  reference  manual 
for  the  Applesoft  II  language  is 
now  available  from  Apple  Com¬ 
puter,  Inc.  The  manual  fully  des¬ 
cribes  the  extended  programming 
raipabibties  offered  by  Applesoft 
II  Floating-Point  BASIC,  Price  of 
the  manual  is  $6.95,  For  more  in- 
formation,  contact  Jean  Richard¬ 
son  at  Apple  Computer,  10250 
Bandley  Drive,  Cupertino,  CA 
95014. 

A  Different  TRS-80  Journal. 
From  Washington,  D.C.,  comes  a 
different  TRS-80  pubiication- 
one  for  the  owner  or  user 
interested  in  more  than  BASIC." 
Called  Insiders:  the  TRS-80  Hard¬ 
ware  Journal  with  Machine  Soft¬ 
ware,  the  publication  offers  arti¬ 
cles  on  machine  language  pro- 
gramming,  hardware  modifica¬ 
tions,  and  other  computer  lan¬ 
guages.  Recant  articles  have 
included  a  discussion  of  the 
differences  in  Level  JJ  ROMs, 
how  to  get  sound  effects  and 
music  without  hardware  modifi- 
cation,  new  languages  for  the 
TRS-80,  reviews  of  printers  end 
disk  drive,,  etc.  Subscriptions  to 
Insiders  are  available  at  $7  50 
for  six  issues  through  Computer 
Cable  vision,  2617  42nd  St.  NW 
Suite  2N,  Washington,  DC 
20007.  (202)  337-4691. 
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Didactic  Programming.  This 
journal  of  calculator -demon- 
strated  math  instruction  contains 
articles  on  theory  analysis,  pro¬ 
grams,  reviews,  and  teaching 
methods.  Subscription  rate  for 
the  fall -win  ter  ^spring  periodical 
is  $5.  A  sample  Issue  is  available 
for  free.  Write  Educational  Cal¬ 
culator  Devices,  Box  974,  Laguna 
Beach,  CA  92562.  (714)  497- 
3600. 

TRS-80  Newsletter.  If  you  are 
interested  in  an  article  on  data 
base  manager,  send  for  the  July 
issue  of  the  TRS-80  club  news¬ 
letter  from  Arlington,  Massachu¬ 
setts,  and  enclose  $1  with  a  self- 
addressed  stamped  envelope. 
Write  to  TRS-80  Newsletter, 
96  Dothan  Street,  Arlington,  MA 
02174. 

BASIC  Master  Index,  Falcon 
Publishing  Company  offers  a 
master  index  to  computer  pro¬ 
grams  in  BASIC  that  have  ap¬ 
peared  in  all  the  major  computer 
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magazines.  In  addition  to  in- 
dexing  the  tides  and  organizing 
them  into  72  categories,  the 
publication  contains  hundreds  of 
reviews  of  programs,  telling  you 
clearly  what  the  program  does- 
and  whether  or  not  you'd  want  to 
try  it,  B slats '  Master  Index  to 
Computer  Programs  in  BASIC  is 
available  from  Falcon  Publishing, 
P,  O.  Box  68B,  Ben  Lomond,  CA 
95005. 

SAM76,  2nd  Ed.  The  second 
edition  of  the  SAM 76  language 
manual  is  now  available  for  $15. 
It  incorporates  material  published 
in  magazines  during  1978.  There 
is  also  a  limited  number  of  64- 
page  inserts  which  can  be  used  to 
update  the  first  edition  of  the 
manual;  they  are  $5  each.  A 
SAM76  bilingual  (french  - 
English)  version  of  Adventure  is 
available  on  eight- inch  disk;  an 
English-only  version  on  five-inch 
disk.  Price  for  the  Adventure 
disks  is  $20  each  postpaid.  Send 
orders  to  SAM76,  Box  257, 
RR1,  Pennington,  NJ  08534. 

TRS-80  Software  Source.  The 
summer  edition  of  the  TRS-80 
Software  Source  contains  3,000 
listings  of  TRS-80  software  avail* 
able  from  200  vendors.  Program 
listings  are  cross-indexed  and 
divided  into  five  sections:  listings 
alphabetized  by  supplier,  by 
subject,  by  BASIC  and  memory, 
by  disk,  and  by  supplier's  name. 
Subscriptions  to  the  Software 
Source  cost  $10  per  year  (three 
issues);  $4  for  a  single  issue. 
Order  from  Box  1664,  Lake 
Havasu  City,  AZ  86403. 


Other 


Northeast  Computer  Show.  The 
largest  personal  and  small  business 
computer  show  in  New  England 
will  take  place  in  Boston, 
Sept.  28-30  at  Hynes  Audito¬ 
rium.  There  wiil  be  futuristic 
displays  and  exhibits,  including 
the  office  of  the  future,  the 
computerized  kitchen,  and  an 
executive  mobile  office.  There 
will  also  be  a  JVookery  of 
robots."  Radio  Shack,  Commo¬ 
dore,  Heath  kit  and  other  micro 
computer  companies  will  demon* 
strata  their  1 980  systems. 

Virginia  Fleas.  The  fourth  annual 
Tidewater  Hamfest  Computer 
Show  and  Flea  Market  will  be 
held  in  Norfolk,  Virginia,  Oct,  20 
and  21.  The  exhibit  will  be  in 
Norfolk's  Cultural  and  Conven¬ 
tion  Center;  Flea  Market  tail- 
gating  space  is  available  as  well. 
The  event  is  sponsored  by  Tide¬ 
water  Radio  Conventions,  Inc., 
a  coalition  of  six  ham  radio  clubs 
and  one  computer  club,  DIGIT, 
A  highlight  of  the  weekend  will 
be  a  dinner  cruise  on  the  Spirit 
of  Norfolk ,  For  tickets  end 
information,  contact  TRC,  P.  O, 
Box  7101,  Portsmouth,  VA 
23707. 

Get  Published!  If  you’ve  written 
a  good,  usable,  original  program 
(no  copying,  please),  for  the  TRS- 
80,  send  it  to  the  Computer 
Information  Exchange —and  you 
may  see  your  work  immortalized 
on  tapel  The  program  can  be  in 
BASIC,  assembly  language, 
machine  code,  FORTH,  PASCAL, 
FORTRAN,  or  any  other  lan¬ 
guage  for  the  TRS-80.  If  CIE 
accepts  your  program,  you  will  be 
sent  two  copies  of  the  release 
print  containing  it;  since  there  are 
often  75  programs  on  a  single 
cassette,  you  will  be  getting  a 
return  of  1 50  for  one.  Send  your 
submissions  to  People's  Software, 
Computer  Information  Exchange, 
Box  158.  San  Luis  Rey,  CA 
92068. 


Bay  Area  Swap.  The  fourth 
annual  California  Computer  Swap 
Meet  wiil  be  held  on  September 
15,  from  9  a,m.  to  5  p.m.  at  the 
San  Mateo  County  Fairgrounds, 
Just  south  of  San  Francisco. 
Buyers  and  sellers  of  personal 
computing  products  will  be 
coming  from  throughout  the 
West.  Admission  is  free  (though 
Fairgrounds  parking  is  $11.  Both 
individuals  and  companies  are 
invited  to  call  John  Craig,  Editor 
of  Creative  Computing,  at  (805) 
735-1023  for  booth  prices  and 
availability.  Write  to:  RFD  Box 
10GD.  Lompoc,  CA  93436. 
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SOFTWARE 


fivnvlx'!!-  PROGRAM  LISTINGS 

LJS tint's  rv  BASIC  AND  MEMORY 

LISIINGS  BY  CASS  AND  DISK 
ALPHABETIZED  BY’  SUBJECTS 
ALPHABETIZED  BY7  PROGRAMS 
CROSS  INDEXED 


200  VENDOR  NAMES  Sc  ADDRESSES 
PUBLISHED  3  TIMES  A  YE  AR 
SPRING,  SUMMER  AND  E  YJ  I 

“,l>TION  5,2  00  A  YEAR 
SINGLE  ISSUE  55,00  EACH 

FOREIGN  ADD  52.00  EA/AIR  MAH 


SOME  OF  OUR  CUSTOMERS  INCLUDE: 


IBM 

AT  Sc  T 
NBC-TV 
IT  Sc  T 


PEPSI  COLA 
UNION  CARBIDE 
DETROIT  STEELE 
TEXAS  INSTRUMENTS 


US  NAVY 
US  AIR  FORCE 
PROCTER  &  GAMBLE 
NAI  BANK  OF  KUWAIT 


DOCTORS 

ATTORNEYS 

TEACHERS 

individuals 


- venders  to  list  software  -  dealer  discounts  available 


CHECK  OR  MONEY  ORDER  PLEASE 


COMPLT  LRM.AT  Box^l()64R  Uke  Havasu  City^z  86403  602-855-3357 
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